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TUtti i segreti che 
bisogna conoscere 1 
per acquistare bene 
Computer, Monitor, 


Wdeogiochi. 




za farsi distrarre da tanti inutili “gadgets” 
che non aiutano certo la qualità. Anzi, tanto 
più una macchina è semplice, tanto più è 

affirìahilp p sin ira I Ina marrhina spm- 


sibilita di espansione e deve essere aperta 

ad accogliere nuovi programmi non ancora 

realizzati. Esattamente come la linea 

| computer Fenner: espandibile secondo le 

- le Vostre esigenze, capace di gestire video 

fys ad alta risoluzione, in grado di fornire delle 
6 

■ sofisticate macchine di calcolo o divertenti 
J partners di video giochi. i^B 


FENNER 



























In una parola. 



Un grande nome neirelettronica 
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Raccomandiamo la brevità delle do¬ 
mande. Si darà precedenza a quelle 
che trattano argomenti di interesse 
generale. 


OLIVETTI PRODEST E PCI 


Possiedo un PC-128 S Olivetti e sono sod¬ 
disfatto delle sue potenzialità, manca pe¬ 
rò una valida e completa biblioteca soft¬ 
ware. 

Venuto a conoscenza del nuovo prodotto 
della Olivetti-Prodest: il PCI, mi sorge il 
dubbio che il mio PC-128 S sia divenuto 
ormai obsoleto e privo di «potenzialità fu¬ 
ture»; il PCI è compatibile quindi come 
voi stessi scrivete con una inesauribile bi¬ 
blioteca software, senza contare delle pre¬ 
vedibili scelte della stessa Olivetti Pro- 
dest in materia. 

Altra cosa che mi interessa sapere è la 
giusta stampante per il mio « vecchio » PC- 
128 S. Non sfornerei listati giornalmente, 
e quindi non ho necessità di alte capacità 
tecniche né di lunghe operazioni di scrit¬ 
tura. 

Formigatti Angelo - Conselice (RA) 

Dire che il PC-128 S è vecchio è forse 
un’affermazione un po’ esagerata, il suo è 
un dubbio che ultimamente assilla un 
gran numero di possessori di PC-128 S, 
dopo la presentazione del PCI. Ragazzi, 
rimanete tranquilli, il PCI non è un’evolu¬ 
zione tecnologica del 128 S, bensì un 
compatibile con lo standard MS-DOS 
(tranne che per il formato dei dischi) quin¬ 
di una macchina di tutt’altra fascia; inol¬ 
tre i due modelli Prodest (PC-128 e PC-128 
S) sono ancora presenti sul catalogo e di 
conseguenza ancora costruiti senza il ri¬ 
schio di intralciare il passo al PCI e vice¬ 
versa. Per quanto riguarda il software, la 
casa mette a disposizione dei programmi 
base (WP, Data Base, ecc.), anche se da 
molti negativamente commentati, comun¬ 
que è ormai imminente l’uscita sul merca¬ 
to della «guida di riferimento» dalla quale 
si potranno attingere interessanti informa¬ 
zioni sulla macchina. 

Conclusione? Studiando bene il calcolato¬ 
re (e i mezzi ci sono), il software potrai 
svilupparlo da solo come fanno i nostri 
collaboratori programmatori. La stampan¬ 
te per PC-128 S è la DM-90 S Olivetti Pro¬ 
dest, ed è ottima. 


, PROPOSTE PER IL PC-128 

Sono un miserrimo utente del PC-128 Oli¬ 
vetti Prodest e vorrei dirvi alcune cose 
Operando di non annoiarvi: 

1) leggendo LIST talvolta ho incontrato 
dei bei programmi per altri computers mi 
sono cimentato nella loro traduzione. I lin¬ 


guaggi che più mi sono comprensibili so¬ 
no gli MSX e lo Sharp MZ 700, nonché lo 
Spectrum. Degli altri computers, (vedi 
C-64, C-128, ecc.) mi riesce praticamente 
impossibile alcuna decifrazione per l’ele¬ 
vato numero di peek e poke di cui non co¬ 
nosco la mappa di memoria. Vorrei dun¬ 
que proporvi di mettere accanto ad un li¬ 
stato (ad esempio per lo Sharp MZ 700), 
delle note esplicative che rendano agevo¬ 
le la traduzione da un tipo di Basic ad un 
altro; 

2) Vorrei che dedicaste una rubrica (vedi 
«Di Tutto un po'» per il mio calcolatore. 
So che gli Olivetti PC-128 sono abbastan¬ 
za diffusi per cui accontentando me, ac¬ 
contentereste una vasta gamma di lettori 
(nella mia classe ho diffuso la vostra rivi¬ 
sta; ora i « LISTIANI » sono 10 in più!!); 

3) Se dedicare una rubrica vi sembra ec¬ 
cessivo, potreste almeno proporre delle 
utility che si adattino ad un pubblico gio¬ 
vane che va dalle scuole medie fino 
all'università e proporre ergomenti mate¬ 
matici, fisici, biologici, chimici. 

Potrete mai accontentarmi? 

Vi scongiuro. 

Roberto Picco • Salice (PN) 

Non preoccuparti, se rispondere alle ri¬ 
chieste dei lettori fosse una noia, non esi¬ 
sterebbe la rubrica, quindi procediamo 
con ordine (1, 2, 3) con le tue richieste. 

1) È ammirabile il tuo impegno nel tradur¬ 
re i programmi che trovi sulla rivista nel 
Basic del PC-128, e diciamo comprensibile 
la richiesta di allegare ad ogni listato le 
conversioni per altre macchine. In verità 
abbiamo valutato questa possibilità ma 
se veramente per ogni programma doves¬ 
simo effettuare un lavoro di adattamento 
per altri computers (cosa che poi dovrem¬ 
mo fare molto bene e non alla buona) tro¬ 
veresti LIST in edicola ogni 3 mesi. 

2) Sulle pagine di LIST (nella rubrica «Per 
saperne di più...»») iniziano ad affiorare 
quelli che vengono chiamati trucchi, routi¬ 
ne anche per la serie Prodest in genere e 
questo sappiamo che farà piacere a tutti 
gli utenti Olivetti. 

3) Per quanto riguarda gli argomenti che 
tu ci proponi, be' considera che dei nostri 
programmatori Olivetti, due sono studenti 
universitari iscritti a facoltà scientifiche, 
un altro è biologo quindi profondi cono¬ 
scitori delle discipline che citi nella richie¬ 
sta 3. 

Concludiamo assicurandoti che su LIST ci 
sarà un costante appoggio a tutti gli uten¬ 
ti del PC-128 e che le tue richieste se non 
sono state già esaudite, lo saranno al più 
presto. 


SPHEROGRAPH PC-128 S 


Vi scrivo per segnalarvi una correzione da 
apportare al programma « Spherograph» 
per PC-128 S (comparso su LIST n. 
3/1987). 

Il programma « Spherograph», in fase di li¬ 
stato pubblicato funziona egreggiamente 
(complimenti agli autori!), ma per una svi¬ 
sta nella stampa del listato non esegue le 
rotazioni intorno ai 3 assi X, V e Z. 

Per far sì che esegua dette rotazioni oc¬ 
corre correggere le linee 810 ed 820 del li¬ 
stato, sostituendo in esse X3, Y3, e Z3 ed 
X, Y, Z (se no il programma calcola sì la 
rotazione di coordinate, sino ad ottenere 
X3, Y3, Z3, ma poi non le applica nella tra¬ 
sformazione finale, appunto nelle linee 
810 ed 820!!!). 

Cordiali saluti e buon lavoro con la vostra 
bella rivista! 

Gaudenzio Villani - Cambiano (TO) 

Abbiamo ricevuto la tua lettera nella qua¬ 
le ci hai fatto notare la presenza di un pic¬ 
colo «bug» nel programma «Spherograph» 
per PC-128 S, pubblicato sul numero di 
marzo. In effetti hai ragione: a causa di 
una nostra svista, abbiamo pubblicato un 
listato modificato in fase di progettazio¬ 
ne, e quindi concettualmente errato. Ci 
scusiamo con i lettori di questo inconve¬ 
niente, peraltro poco grave, Infatti l’errore 
si presenta solo quando si vuole ruotare il 
grafico attorno ad un asse, operazione 
che non si effettua molto frequentemente. 
Ti ringraziamo ancora una volta per il tuo 
interessamento, e ti salutiamo invitandoti 
a collaborare ancora con noi. 


ERRATA CORRIGE 

Nel numero 8/9 u.s. di questa rivista, 
a pag. 24 riga 16 a leggasi IBM anziché ISM; 
a pag. 25 riga 14 a leggasi PDP anziché Pop; 
a pag. 64 listato « OLI3D » nella riga 820, 
l'ultimo numero di riga è 3560, e quel¬ 
lo della riga 840 è 800. 

Ci scusiamo con i nostri lettori. 


AVVISO 

La pagina degli annunci 
sarà pubblicata 
nel prossimo numero 
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PER SAPERNE DI PIÙ... 

Slamo sempre più convinti che 
rutiliti di una rivista come LIST sia 
ottenibile con la pubblicazione di 
rubriche che formino ed amplino il 
bagaglio culturale dei lettori nello 
specifico settore dell’informatica e 
della computeristica. 

Oltre ai •programmi pronti» per i 
computers più diffusi, che ci 
sforziamo di scegliere e presentare 
sempre più Interessanti e divertenti, 
ecco che, proprio da questo 
numero, viene sostituita la rubrica 
"DI tutto un po’» con "Per saperne 
di più..* che allargherò le 
conoscenze computeristiche 
avvalendosi della collaborazione di 
esperti, ma aperta anche alle 
esperienze del lettori, •Per saperne 
di più..* ò un altro nuovo 
componente di quella originale 
formula editoriale che si chiama 
•LIST». 
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NUOVO. 

PC 1 è il nuovo grande computer 
della Olivetti Prodest. Il computer 


Al COMPUTE 


per casa per futuri numeri uno. 

POTENTE. 

512 K RAM espandibili fino a 640 
Kbyte tramite scheda d’espansio¬ 
ne. Processore a 4.77 / 8 Mhz. 
Utilizza dischi da 3,5” in grado di 
contenere fino a 720.000 infor¬ 
mazioni ed è predisposto per un 
secondo drive da 3,5” che raddop¬ 
pia la sua capacità di gestione. 

COMPATTO. 

Grazie alla sua architettura genia¬ 
le e sofisticata e al design d’avan¬ 
guardia il PC 1 è compatto e 
completamente integrato. Tutte le 
funzioni sono infatti racchiuse in 
due soli pezzi: tastiera con drive 
incorporato e monitor. 

COMPLETO. 

Il PC 1 è completo di tutto. Tastie¬ 
ra Qwerty a 83 tasti, con sezione 
alfanumerica, funzioni (10) e pad 
numerico; drive da 3,5” incorpo¬ 
rato. Monitor monocromatico a 
fosfori verdi da 12”. Disco di si¬ 
stema: MS/DOS*, GW" BASIC, 
LODE RUNNER GAME. “Per co¬ 
minciare subito”, un package di 
programmi che permette di utiliz¬ 
zare subito il PC 1 (WP, Grafica, 
Data tree, Tutorial e Totocalcio). 

COMPATIBILE. 

Il PC 1 è IBM” compatibile. Uti¬ 
lizza infatti il sistema operativo 






















ESPANDIBILE. 

Il PC 1 non ha limiti. La sua ricca 
dotazione di periferiche può sod¬ 
disfare qualsiasi esigenza: stam¬ 
pante, drive da 5,25”, joystick, 
mouse, monitor a colori. E grazie 
al Bus di Espansione, IBM" com¬ 
patibile, è possibile collegare al 
PC 1 i principali hardware pre¬ 
senti sul mercato. 


DOTATO. 

Una dotazione di software che 
nessun altro può vantare. Pro¬ 
grammi di produttività personale, 
videogiochi e grafica, tutti di al¬ 
tissimo livello e a prezzi sbalordi¬ 
tivi. E grazie alla compatibilità di 
linguaggio è possibile utilizzare 
anche i programmi professionali 
delle principali software-house 
del mondo sviluppati in ambiente 
MS/DOS*. 


1 . 195.000 

512 Kbyte, un floppy da 3,5”, 
monitor monocromatico, sistema 
operativo MS/DOS"', linguaggio 
G\T BASIC, LODE RUNNER 
GAME. Più IVA. 


UQCHEMANCM 

R PER CASA. 


MS/DOS* 3.2, il linguaggio stan¬ 
dard utilizzato dai personal com¬ 
puter professionali della nuova 
generazione. 































Musica leggera 
e computer 


n una nota — sempre lucida e interessante — del sociologo Francesco Al- 



beroni, pubblicata di recente sul Corriere della Sera, abbiamo letto che 


M. «gli adolescenti, per esprimere la loro specificità e diversità, devono riu¬ 
nirsi in gruppo, formare una società in cui siano possibili scambi di esperienze. 
Devono elaborare un proprio linguaggio... un gergo. E — prosegue A/beroni 
— l'unico linguaggio specificamente loro, diverso da quello delle generazioni 
precedenti, è la musica leggera». 

D'accordissimo, concordiamo noi, ma vorremmo sollevare una obiezione: vor¬ 
remmo cioè sostituire quell'«unico linguaggio », dichiarato da A/beroni, con «il 
più diffuso ». 

E chiariamo: come dimenticare che oltre la musica leggera esiste per il giovane 
d'oggi quello strumento, giovane tra i giovani che si chiama «computer»? 

Il computer rappresenta il nuovo gergo... il nuovo «look», anche intellettuale, 
che affascina l'adolescente prima, con i suoi videogiochi, e il giovane poi, con 
il suo linguaggio autenticamente moderno e futuribile. 

E l'entusiasmo che il computer suscita nel giovane è paragonabile — nel senso 
sociologico — a quello per la musica leggera. Diventa il suo specifico, lo acco¬ 
muna agli altri giovani nello scambio di esperienze e di scoperte. 

Apparentemente il computer sembra isolare il giovane davanti al monitor; in 
realtà sperimentare quello strumento lo rende membro della comunità moder¬ 
nissima di tutti quei giovani che, come lui, lo stanno sperimentando e delle cui 
esperienze poi parleranno, discuteranno, su cui si confronteranno e... socializ¬ 
zeranno. 

Dunque il computer, come e a volte più della musica leggera, diventa specifica- 
mente loro, li distingue e li esatta (pur senza raggiungere il fanatismo). Li fa 
riunire in gruppi, in clubs (oltre 1.500 nella sola Italia). 

Proprio perché linguaggio di grandissima attualità e di sicura proiezione nel fu¬ 
turo, la computeristica è, con la musica leggera, l'altro aspetto di identificazio¬ 
ne dei giovani. 

Come la musica leggera, la computeristica ha una sua struttura vincolante ep¬ 
pure libera, capace ad esempio di dare immediatezza grafica al pensiero, con 
ritmi ed immagini paragonabili, guarda caso, all'altalenante susseguirsi delle 
note musicali... 

Ecco perché, secondo noi, esiste un altro specifico linguaggio nella società dei 
giovani. Essi si interessano e credono nell'informatica; sentono che è una disci¬ 
plina che crescerà con loro; ne sono militanti ancorché seguaci. 

Il computer è il loro e nostro nuovo credo; il monitor è quella finestra che può 
offrire sempre più vasti orizzonti, ed è per questo che i giovani ne sono attratti 
e a quella finestra appassionatamente si affacciano... magari con lo stereo acce¬ 
so a tutto volume. 


Renzo Rubeo 







Servizio NOVITÀ 

ESCLUSIVO 

per tutti coloro che hanno 
inviato o che invieranno subito 
la CARTOLINA-IDENTIKIT 


G RATIS 

AL TUO DOMICILIO 

RICEVERAI PERIODICAMENTE 


OPUSCOLI 
CATALOGHI 
HOUSE-ORGANS 
PIEGHEVOLI 
CIRCOLARI 
OFFERTE SPECIALI 
PROMOZIONALI ecc. ecc... 


delle migliori Case Produttrici internazionali 
di computer - accessori - periferiche e software 


Certamente ti interessa essere 
sempre tra i più informati ! 

Se ancora non hai inviato la 

CARTOLINA-IDENTIKIT 

fallo subito ! La trovi allegata 
nelle pagine centrali già affrancata 


una 

speciale 

BUSTA 

personalizzata 

contenente: 
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Marchio registrato della TOKI Corporation Japan. 


Storia 

del 


Biometal 


® 


L a ricerca scientifica ci ha costantemente stupi¬ 
to per scoperte affascinanti, progressi in ogni 
direzione, sforzi per raggiungere risultati sem¬ 
pre più precisi sia nel mondo macroscopico, sia in 
quello microscopico. 

Quando l’effetto transistor fu studiato in un laboratorio 
si intuì la portata di una scoperta che è ad oggi la ba¬ 
se della tecnologia e, ormai, della vita comune. 

Anche se quella scoperta fu così rivoluzionaria chissà 
quanti lettori di riviste specializzate o inserti scientifici 
in quotidiani, avranno appreso la notizia e poi, dopo un 
classico « ohh! incredibile » avranno proseguito in altre 
letture di contenuto più attuale e concreto (per quei 
tempi naturalmente). 

Potrebbe essere il caso di questo articolo, cari lettori, 
considerata la novità di un prodotto comparso da po¬ 
chissimo sul mercato mondiale: BIOMETAL® . 

BIOMETAL® è una lega titanio-nichel che possiede in¬ 
credibili capacità di modificare la propria struttura cri¬ 
stallina al variare della temperatura; fenomeno che 
prende il nome di SME (Sharp memory effect). 

Per chiarire meglio cosa sia l’effetto SME pensate ad 
un pezzo di filo metallico che misuri 10 cm e che si ac¬ 
corci di 1 cm se riscaldato e, viceversa, si allunghi di 1 
cm se raffreddato. 

Per valutare l'utilità di tale scoperta è opportuno riper¬ 
correre le sequenze più significative degli studi sulle 
leghe ad effetto SME, evoluzioni che nel corso di 40 
anni hanno reso possibile il passaggio da ricerca 
scientifica a ricerca tecnologica. 

Un gruppo di leghe metalliche che dimostravano l’effet¬ 
to di memorizzazione della forma avevano ottenuto lar¬ 
ghi consensi in molte aree di applicazione. 

Questi metalli hanno un’unica struttura cristallina che 
cambia forma radicalmente quando soggetta ad un 
cambiamento di temperatura. Questo cambiamento 
non è continuo, come le convenzionali espansioni e 
contrazioni termiche, ma si ha strettamente tutto in un 
istante, già al di sopra di una temperatura bassa (dai 
20 ai 30 gradi centigradi), che al di sotto. 

Sulla base di questi materiali hanno trovato la loro via 
una varietà di ricerche di base sui metalli e le loro pro¬ 
prietà di memorizzazione di forma. 

Nel 1951, due ricercatori europei, Chang e Read, dap¬ 
prima notarono l’effetto SME in una lega di Oro e Cad¬ 
mio e nel 1958 esposero al Brussels World’s Fair un 
meccanismo ciclico di sollevamento di pesi. 

Chang e Read mostrarono con grande chiarezza che si 
potevano produrre sistemi meccanici utilizzando mate¬ 
riali SME, perlomeno per scopi dimostrativi. 

La loro ricerca si aprì verso ulteriori orizzonti e arriva¬ 
rono anche a scoprire caratteristiche SME in una lega 
di Indio e Titanio. Comunque l’eccessivo costo di que¬ 
ste leghe e il loro possibile danno alla salute limitaro¬ 
no l’interesse nelle ricerche. 

La scoperta di caratteristiche SME in una lega di Tita¬ 
nio e Nichel fece riconquistare interesse in questo 
campo di ricerca, poiché tali leghe erano considerate 
di costo più basso e di utilizzo più immediato. 

Questa scoperta avvenne per caso alla U.S. Naval Ord- 
nance Laboratory (ora chiamata Naval Surface Wea- 



pons Center) nel 1961, da un team guidato da William 
Beuheler, mentre tentava di sviluppare una lega di Ni¬ 
chel e Titanio resistente alla corrosione e al calore. 

A causa del segreto militare la scoperta fu resa pubbli¬ 
ca solo nel 1963. 

Le leghe a memoria di forma TI-NI sono spesso chia¬ 
mate Nitinol, «NI» e «TI» sono i simboli atomici del Ni¬ 
chel e del Titanio nella tabella periodica degli elemen¬ 
ti, e «NOL» è l’abbreviazione di Naval Ordnance Labo¬ 
ratory. 

Dopo l’annuncio il U.S. Battelle Memorial Laboratory 
fece vasti studi sulle proprietà del Nitinol. 

Seguirono altri studi del Nitinol e possibili applicazioni 
creando grande interesse in numerosi altri laboratori 
ed università. 

In Giappone lo studio delle proprietà del Nitinol e della 
struttura dei cristalli incominciò intorno al 1966, mag¬ 
giormente presso l’università di Osaka e Tohoku. Nel 
1966 l’effetto di memorizzazione della forma fu scoper¬ 
to in una lega di Rame, Alluminio e Nichel. In generale 
tutte le quattro leghe SME possedevano le seguenti 
due caratteristiche: 

1) deformazione plastica nello stato di raffredda¬ 
mento o rilassamento. 

2) rigidità crescente alle alte temperature. 

Le leghe SME subiscono trasformazioni termiche di ti¬ 
po elastico, cioè l’elasticità del metallo cambia a diver¬ 
se temperature. 

Tra il 1970 e il 1973 ricercatori trovarono la proprietà 
SME nelle seguenti leghe: Rame-Oro-Zinco, Rame- 
Titanio, Rame e Zinco, Ferro e Platino, Rame-Zinco- 
Alluminio, Nichel Alluminio, e Manganese Rame. 

Tutti questi metalli sono in vicinanza nella tabella pe¬ 
riodica degli elementi e hanno una struttura cristallina 
simile quando posti in lega. 

Ulteriori studi mostrarono chiaramente che l’effetto di 
memorizzazione della forma era causa della fase di tra¬ 
sformazione tra due differenti strutture cristalline. 

Tra tutte le leghe ad effetto SME studiate, la classe Nl- 
Tl di metalli mostra proprietà superiori per tensione, 
forza di ritorno, resistenza alla fatica, ripetibilità, non 
tossicità. 

Oltre al Nitinol, soltanto leghe di Rame, Zinco ed Allu¬ 
minio sono considerate materiali SME pratici, cioè a 
basso costo e di facile lavorazione. 

• Fabrizio Ravasi 

BIOMETAL® , il risultato finale di quanto abbia¬ 
mo conosciuto in questa storia, è un prodotto og¬ 
gi in commercio e disponibile per qualunque tipo 
di ricerca e applicazione. 

Questo sarà l’argomento delle prossime puntate, 
nelle quali mostreremo le nostre esperienze con 
il BIOMETAL® ed un simpatico robot costruito 
sfruttando le sue caratteristiche, vedi iv di copertina. 
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Un Personal Computer di concezione 
avanzata basata su componenti a grande 
integrazione. 

In tal modo si è potuto sviluppare, su una 
sola scheda madre, oltre 45 circuiti inte¬ 
grati che controllano tutte le funzioni, 
dalla memoria alla grafica video, al flop¬ 
py disk controller, alle interfacce paralle¬ 
la, seriale e mouse. 

Per questo motivo non sono necessari 
slots di espansione. 

11 risultato è il PC 1, il personal computer 
più compatto, con un eccezionale rappor¬ 
to prezzo prestazioni. 

Insieme al sistema operativo MS-DOS 3.2 
viene fornito il GW BASIC. 

Prezzo Lire 995.000 IVA esclusa 


SCHEDA TECNICA 

Unità centrale: 

Processore 8088 
frequenza 4/77 MHz 
coprocessore 8087 opzionale 

Capacità di memoria: 

512 KB RAM standard espandibile 
a 640 KB RAM direttamente sulla 
scheda madre BIOS su ROM 16 
KB 

Sistema operativo: 

MS-DOS 3,2 GW BASIC 
Memoria di Massa: 

Interna: 1 floppy disk da 5”, 1/4. 
360 KB formattati ► 
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► Esterna: 

1 floppy disk da 3” 1/2 o 
1 floppy disk da 5” 1/4 

Interfacce: 

Parallela Centronics 8 bit 

Seriale RS 232 C 

RGB 1 video composito b/n 

gorta mouse compatibile 

Microsoft 

Video Display: 

MDA 

CGA 

HERCULES GRAPHICS 720x348 
pixel 

Testo monocromatico 80x25 


È un vero home professional. Potente 
compatibile, completo compatto. 
Caratteristiche: Sistema operativo MS- 
DOS 3.2, microprocessore NEC V 40 
compatibile, alta velocità (8 MHz), 512 
Kb espandibile 640 Kb, disck drive 3.5” 
Opzioni: secondo floppy disck 3.5”, 
stampante DM 91, Monitor a colori. Gra¬ 
phics controller hard disck unit controller, 
TV/Telematic adapter, CDROM, modem, 
adattatore Pagine Gialle elettroni- 
che/VIDEOTEL, Music Show. 

Sofware: 100 titoli originali Libreria Oli¬ 
vetti Prodest, oltre alle migliaia di pro¬ 
grammi MS DOS esistenti sul mercato. 
Prezzo configurazione standard 1.195.000 
IVA esclusa. 


PC ATARI 



Video OUTPUT: 

RGB I digitale 
Monocromatico 
Composito b/n 

Modo Grafica: 

320x200 4 colori 
640x200 2 colori 

MODO TESTO: 

40x25 16 colori 
80x25 16 colori 

Porte di Espansione: 

I slot esterno 
Tastiera: 

84 tasti, separata, compatibile PC 40 

Monitor: 

Monocromatico, colore opzionale 
Dispositivi Esterni del Sistema: 

Bus per espansione esterna 
Compatibilità: 

Totalmente compatibile con 
PC 10/20/40 MS-DOS 

Dimensione CPU: 

33x32x8,5 cm 


OLIVETTI PRODEST PCI 



,» 


i 


SCHEDA TECNICA PC 1 
Hardware 

Processore: 

NEC V40 — 8088 compatibile — 
4.77/8 Megahertz 

RAM utente: 

512 Kb Espandibile via bus connec¬ 
tion a 640 Kb 

ROM: 

32 Kb per diagnostica e Bios 

Tastiera: 

83 tasti con sezione alfanumerica, 

10 funzioni e pad numerico 

Monitor: 

Modi grafici (CGA) — 640x200 
B/W, 320x200 4 colori, 160x200 16 
colori 

Alfanumerico (font 8x8) — 80x25: 
40x25 

Floppy disck: 

3.5” doppia faccia/doppia densità 
Capacità: 720 Kb 

Joystick/ Mouse: 

In emulazione cursori 

Interfacce: 

Parallele tipo Centronics, seriale- 
RS232, suono (HI/FI), floppy 
disck (FDU esterno da 5,25”), ex- 
pansion bus (IBM compatibile) 

Opzioni: 

Via expansion bus è possibile con¬ 
nettere un box per due card, 
small/half size 

11 box potrà ospitare opzioni quali: 
RAM, LAN, Modem, Graphics 
controller, CD ROM controller, 
TV/Telematic adapter, Hard disk 
unit controller, Music Show, adat¬ 
tatore Pagine Gialle elettroni- 
che/VEDEOTEL. 


Sistema Operativo MS-DOS 

Con questo personal computer, Atari of¬ 
fre una reale alternativa a tutti gli acqui¬ 
renti che in seguito desiderano utilizzare 
software per il sistema operativo MS- 
DOS. 

È infatti compatibile con le schede grafi¬ 
che CGA, EGA ed Hercules. 

Il clock del processore a 4,77 MHz può 
essere portato a 8 MHz. 

Con i suoi 512 Kb RAM, il PC Atari si 
presenta con una memoria ampiamente 
sufficiente. 

Tutte le periferiche della serie di computer 
ST possono essere collegate al PC. So¬ 
prattutto per quanto riguarda gli ottimi 
floppy della serie ST Atari a 3 1/2 pollici. 
Il disco rigido può infatti essere collegato 
direttamente. 

Il PC Atari viene offerto, con monitor 
PCM 124, a Lire 990.000 (IVA esclusa). 



MULTITECH 

PC ACER • 500 + 


«* 
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Descrizione: 

8088-4,77/8 MHz, 256KB RAM 
esp. 640KB su scheda base 
4 slot di cui 2 liberi 
1 Floppy D. 5,25” 

IBM XT comp., tastiera scheda video 
MGA (monocrom. Grafica) 

Monitor monocrom. 12” 

1 porta seriale, l porta parallela, 
MS/DOS 

DIM. 400xl20x380mm 
Prezzo Lire 990.000 IVA esclusa 



Descrizione 

• Unità di sistema a 512K con tutta l’elet¬ 
tronica su un’unica scheda. 

Processore 8086 a 8 MHz. 

Memoria espandibile fino a 640K su sche¬ 
da principale. 

Adattatore grafico speciale con modo in 
alta risoluzione a 16 colori o 16 toni di 
grigio. 

Tre slot di espansione per schede a tutta 
lunghezza con presa di alimentazione di¬ 
sponibile nell’unità di sistema per disco 
fisso e controller. 

Scelta fra uno o due dischi da 5” e 1/4 
oppure una unità dischi e un disco fisso 
da 20 megabyte. 

Le versioni con disco fisso sono dotate di 
manuale e dischetto supplementare con le 
unità di backup, restore e format. 

La scheda principale comprende un’inter¬ 
faccia seriale RS232C e una parallela Cen¬ 
tronics con connettori standard. 
Altoparlante con regolatore di volume. 
Orologio in tempo reale e configurazione 
RAM alimentate da batterie. 

Zoccolo per processore matematico 8087. 
Connettore per penna ottica o Joystick. 

• Completo di monitor a colori o mono- 
cromatico (16 livelli di grigio). 
L’adattatore grafico standard incorporato 
comprende le seguenti modalità: 

Media risoluzione Alfa - 16 colori, 
40x25 caratteri; Media risoluzione Grafi¬ 


ca - tre tavolozze a 4 colori 320 x 200 
punti; 

Alta risoluzione Grafica - 2 colori, 
640 x 200 punti; 

+ Grafica speciale HiRes - 16 colori, 
640x200 punti. 

Questo modo grafico speciale è di norma¬ 
le dotazione in aggiunta ai modi Alfa e 
Grafici e consente di visualizzare della 
grafica in alta risoluzione a 16 colori (per 
esempio GEM). 

• Tastiera QWERTY italiana completa. 
Tasti di Blocca Numeri e Blocca Maiusco¬ 
le con spia luminosa. 

Porta per joystick o penna ottica sulla ta¬ 
stiera. 

Tasti aggiuntivi di Can e IMMISSIO¬ 
NE, Piedini regolabili. 

• Mouse e due pulsanti con Porta dedica¬ 
ta nell’unità di sistema. 

Comando MOUSE. COM compatibile 
Microsoft con altre speciali funzioni per 
testi. 

• Software operativo esteso incluso in 4 
dischetti (tutto in italiano). 

Compatibile BIOS ROM. 

Sistema Operativo MS-DOS 3.2 
Device driver compatibili con disco RAM 
ed estesa flessibilità per i supporti. 

Ampia dotazione di utilità compatibili. 
Ammette l’uso di dischi fissi e reti locali. 
GEM (Graphics Enviroment Manager) + 
GEM Desktop v. 2 Digital Research. 
GEM Paint Digital research. 

Basci 2 interprete BASIC della Locomoti¬ 
ve Software funzionante in GEM. 

Sistema Operativo DOS Plus Digital Re¬ 
search che consente l’esecuzione di appli¬ 
cazioni MS-DOS e CP/M-86. 

• Manuale d’uso in italiano. 

Comprende istruzioni per l’avvio del siste¬ 
ma, dettagli sull’uso del GEM DOS, delle 
utilità, del DOS Plus e un sommario del 
BASIC 2 Locomotive. 



SCHEDA TECNICA 
dei PC-Systems/2 

Modello 30-021 

Microprocessore 8086 

Velocità microprocessore 8 MHz 
Memoria RAM 640 Kbytes 

Sistema operativo DOS 3.3 

Floppy Disk 3.5 pollici 

Capacità floppy disk 720 Kb 

Capacità hard disk 20 Megabytes 
Costo 2295 dollari 

Modello 50-021 

Microprocessore 80286 

Velocità Microprocessore 10 MHz 
Memoria RAM 1 Megabyte 

Sistema operativo DOS 3.3-OS/2 
Floppy disk 3.5 pollici 

Capac. Floppy disk 1.44 Megabytes 
Capacità hard disk 44 Megabytes 
Costo 5295 dollari 

Modello 80-041 

Microprocessore 80386 

Velocità Microprocessore 16 MHz 
Memoria RAM 1 Megabyte 

Sistema operativo DOS 3.3-OS/2 
Floppy disk 3.5 pollici 

Capac. Floppy disk 1.44 Megabytes 
Capacità hard disk 44 Megabytes 
Costo 6996 dollari 


Modello 80-111 

Microprocessore 80386 

Velocità Microprocessore 20 MHz 
Memoria RAM 2 Megabyte 

Sistema operativo DOS 3-OS/2 
Floppy disk 3.5 pollici 

Capac. Floppy disk 1.44 Megabytes 
Capacità hard disk 115 Megabytes 
Costo 10995 dollari 


Macro Assembler 
per Atari ST e Amiga 


La Metacomeo, società «autrice» 
dell’Amiga DOS ha presentato un pac¬ 
chetto software di Macro Assembler per 
l’Amiga, denominato Termed MCC As¬ 
sembler. 

Questo pacchetto software, che è inoltre 
disponibile per l’Atari ST, basato sul mi¬ 
croprocessore 68000 della Motorola è 
composto da un Linker e da una libreria 
di programmi per lo screen editor. 

I programmo del Motorola 68000 potran¬ 
no così scrivere in maniera rapida e solle¬ 
cita efficienti routines usando le macro 

► ►► 
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istruzioni che sono totalmente compatibili 
con il set e le specifiche delle istruzioni 
del Motorola. 

L’intero pacchetto applicativo è fornito 
assieme ad un floppy disk introduttivo, 
un manuale d’uso e un manuale di instal¬ 
lazione. 

11 prezzo di vendita di questo pacchetto e 
di 69.95 dollari. 


PHILIPS 

NMS 8245: il computer facile 



Quando si pensa ad un computer si è in¬ 
dotti a credere che un sistema valido sia 
necessariamente costoso. 

Questo fino a ieri. 

Da oggi Philips mette a disposizione del 
pubblico un sistema che risponde a quat¬ 
tro requisiti fondamentali. Estrema sem¬ 
plicità di impiego, completezza, flessibilità 
ed un prezzo competitivo fanno infatti di 
NMS 8245 uno dei computer più appetibi¬ 
li per professionisti, commercianti e stu¬ 
denti che troveranno nel nuovo pacchetto 
Philips la soluzione più attuale per le più 
diverse applicazioni. 

NMS 8245 Philips si avvale di un pacchet¬ 
to applicativo integrato denominato EA¬ 
SE; iniziale di Enhanced Application 
Software Environment, ma, per tutti gli 
utilizzatori EASE, significa semplicemente 
«FACILE.» 

Finalità principale del pacchetto è infatti 
quella di permettere a chiunque di avvici¬ 
narsi alle applicazioni del computer, an¬ 
che senza alcuna conoscenza di base. 

Le applicazione dei testi EASE sono: 

• L’elaborazione dei testi (Word Pro). 

• La piccola editoria personale (Desk 
Top Publisher). 

• La gestione dei dati (Database). 

• Il foglio di calcolo elettronico (Calc- 
form). 

• La creazione di grafici finanziari e ge¬ 
stionali (Charts). 


Inoltre in ogni momento è possibile ri¬ 
chiamare sul video una calcolatrice, un 
notes per gli appunti oppure l’agenda ap¬ 
puntamenti. 

Il programma è gestito a finestre con me¬ 
nu a simboli (icone). L.’utilizzo della mag¬ 
gior parte delle opzioni avviene ancor più 
facilmente mediante un mouse (SBC 
3810). 

Ogni singolo modulo del pacchetto appli¬ 
cativo EASE può essere facilmente collo¬ 
cato e integrato con gli altri, per fare ad 
esempio mailing personalizzate, per certi¬ 
ficare i dati di una tabella, per integrare a 
video o in un’unica pagina stampata testi, 
tabelle e grafici con layout studiati ad 
hoc. 

L’NMS 8245 è dotato di memoria ROM 
da 64 Kbytes, memoria RAM da 256 Kby- 
tes, tastiera integrata da 73 tasti, floppy 
disk drive incorporato da 3,5“. 

Dispone inoltre di interfaccia per monitor 
RGB, CVBS o radiofrequenza per il colle¬ 
gamento alla presa di antenna di qualun¬ 
que televisore domestico. 

Oltre al software Eàse a corredo è presen¬ 
te il sistema operativo MSX-Dos e il pro¬ 
gramma Designer Plus, con il quale è pos¬ 
sibile fare qualunque tipo di disegno. 

Il prezzo al pubblico di NMS 8245 è di 
sole 800.000 lire iva inclusa, un prezzo 
che ne fa senza dubbio uno dei pacchetti 
più convenienti attualmente sul mercato. 
Con NMS 8245, Philips riconferma la sua 
precisa caratteristica di Azienda specializ¬ 
zata in computer «a misura d’uomo», una 
specializzazione che Philips affronta con 
proposte ampie, diversificate e fortemente 
interessanti dal punto di vista prezzo. 


PHILIPS 

La casa Telematica comincia con 
NMS 8280 



Il 1986 è stato per il personal computer 
un anno positivo. 

Il mercato ha registrato un netto incre¬ 
mento in volume. 

Il computer che non è più solo 
“personal” né solo “home”diventa con 
la tecnologia Philips il cuore dei sistemi 
elettronici di casa. 

Philips NMS 8280 è quindi il vero primo 
personal computer per la casa che consen¬ 
te anche il collegamento con banche dati, 
(videotel, pagine gialle...), diventa un so¬ 
fisticato strumento musicale sia per il 
principiante che per il più esigente profes 
sionista. 

Uno strumento quindi non più solo per 
lavorare, ma anche per lo studio, lo sva¬ 
go, gli hobby, di quotidiana utilità anche 
tra le pareti domestiche. 

NMS 8280 consente inoltre: 

Il collegamento con le banche dati. Grazie 
al “Modem NMS 1255” e al programma 
dato a corredo è possibile infatti inviare 
programmi creativi Immagini digitalizzate 
ed accedere a banche dati per usufruire di 
migliaia di notizie e informazioni. 

La musica computerizzata (programma 
NMS 1205) 

Anche chi non sa nulla di musica può di¬ 
vertirsi suonando con gli accopagnamenti 
elaborati dal computer. 

Con l’aggiunta della tastiera NMS 1160 il 
sistema musicale Philips diventa professio¬ 
nale offrendo anche a un musicista pro¬ 
vetto la possibilità di comporre della 
splendida musica. 

NMS 8280 Philips sarà disponibile ad un 
prezzo estremamente interessante (circa 
Lire 1.700.000) uno stimolo ulteriore per 
avvicinare la famiglia al mondo magico 
dei computers. 

SCHEDA TECNICA 
NMS 8280 

Microprocessore: 

Z80 

Memoria: 

ROM 64KB; RAM utente 
128KB; VIDEO RAM 128KB 
unzione di ramdisk/memory map- 
ping 

Risoluzione in modo testo: 

40/80 colonne - 24 righe (modi) 
Risoluzione in modo grafico: 

512-212 punti (7 modi) 

Numero colori: 

256 selezionabili su una tavolozza 
di 512 

Numero Sprite/Linea: 

8 a 16 colori diversi per linea 
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Tastiera: 

Professionale a 73 tasti completa di 
tastierino numerico separato a 16 
tasti 

Interfacce: 

Televisione canale 36 
Monitor CVBS 
Monitor RGB Scart 
2 SLOT per cartucce 
Connettore Audio/Video A 
Connettore Audio/Video B 
Connettore Audio/Video 
In/Out 

2 prese per Joystick 
Mouse/Tavoletta grafica 
Presa registratore 
Presa stampante Centronics 

Floppy disck drive: 

Due unità incorporate da 720KB 
formattati ciascuna 

Software incluso: 

Elaborazione grafica Home Office- 
2 : 

• Elaborazione testi 

• Gestione archivi 

• Tabellone elettronico 

• Grafica finanziaria 

• Agenda appuntamenti 

• Pianificatore di risorse 
MSX-DOS sistema operativo 

A corredo: 

Mouse 

Cavo antenna 
2 cavi video per collegare 
Videoregistratori 
Camera recorder 
Tv/monitor 


MANNESMANN TALLY 

Novità Smau 1987 



Ideali per WP e EDP le nuove MT 230 a 
9 o 18 AGHI a 300 CPS 

Proseguendo nell’ampliamento della pro¬ 
pria gamma di stampanti studiate su mi¬ 
sura per le più diverse esigenze e le più 
svariate applicazioni, la Mannesmann Tal- 
ly presenta in occasione del XXVI Smau 
la nuova serie di stampanti MT 230: capa¬ 
ci di 300 cps in draft e di 150 in Alta 
Qualità. 


Le stampanti della serie MT 230 sono di¬ 
sponibili in due versioni, che differiscono 
in alcuni particolari come la testina di 
stampa, che le specializza nel loro campo 
di impiego. Il modello MT 230/9 ha 9 
aghi ed è indirizzato ad impieghi EDP, 
mentre il modello MT 230/18 ha 18 aghi 
ed è ideale per WP e OA. 

Come tutti i prodotti MANNESMANN 
TALLY, anche le stampanti della nuova 
serie sono state progettate e prodotte per 
sopportare elevati carichi di lavoro sia in 
modo “draft”che in alta definizione. 
Quest’ultima modalità e particolarmente 
efficace nel trattamento testi e permette di 
ottenere stampe di qualità senza sacrifica¬ 
re nulla alla velocità operativa e alla ver¬ 
satilità. 

Alle caratteristiche di robustezza e silen- 
ziosità, le nuove stampanti MT 230 ag¬ 
giungono una particolare duttilità nella 
gestione della carta: il caricamento del 
modulo continuo infatti avviene con un 
trattore a trascinamento o con un trattore 
di spinta; quest’ultima permette lo strap¬ 
po facilitato della carta. L’alimentazione 
a foglio singolo invece avviene frontal¬ 
mente per mezzo di un rullo a frizione 
che serve anche per il caricatore automati¬ 
co opzionale. 

L’elettronica dei modelli MT 230 è fra le 
più sofisticate e consente di personalizzare 
a seconda delle proprie esigenze l’interfac¬ 
cia di collegamento con l’elaboratore e le 
modalità di emulazione. Sono disponibili 
“Smart Card’’ opzionali che consentono 
di gestire il colloquio con il computer in 
altre emulazioni oltre a ANSI, IBM-PC e 
EPSON FX105, già presenti nel firmware 
della stampante. 


ATARI 

Stampante Laser SLM 804 


Caratteristiche: 

• 8 pagine al minuto. 

• Risoluzione, 300 punti per pollice. 

• Formato del foglio, A4 standard 
(216x297 mm). 

• Alimentazione dei fogli automatica e 
manuale. 

• capacità della cassetta di alimentazione 
150 fogli. 

• Utilizza l’interfaccia ATARI ST 
DMA. 

• Emulazione standard di DIABLO 630 
e GDOS. 

La stampante Laser Atari SLM presenta 

l’indubbio vantaggio di offrire la potenza 

della tecnologia laser agli utenti 

dell’ATARI ST. 



Il risultato è una stampa di alta qualità 
con una risoluzione di 300 punti per polli¬ 
ce. In 1 mm2, ad esempio sono contenuti 
140 punti. 

La SLM può stampare otto pagine al mi¬ 
nuto, a una velocità quindi decisamente 
superiore rispetto a una stampante mar¬ 
gherita di qualità comparabile. 

Non solo. Con l’Atari SLM si possono 
stampare anche immagini grafiche. 

È cioè possibile stampare qualsiasi imma¬ 
gine o grafico utilizzando svariati font di 
caratteri, sempre con un alta risoluzione. 
La SLM si affida alla grande capacità di 
memoria e alle prestazioni del veloce pro¬ 
cessore del Mega ST. 

La costruzione della stampante Laser è 
semplificata perchè gran parte dell'intelli¬ 
genza e delle risorse computazionali ri¬ 
chieste sono fornite dal ST. 

Il trasferimento rapido dei dati tra il ST e 
la stampante Laser viene effettuato trami¬ 
te la porta DMA. Questo determina alte 
prestazioni nella stampa di fogli singoli. 
Anche per questo prodotto ATARI si è 
preoccupata di mantenere un prezzo con¬ 
tenuto: Lire 2.790.000 (IVA esclusa) con 
incluso un programma di editoria elettro¬ 
nica. 


AMSTRAD 

Stampante DMP 4000 a 132 Colonne 



La AMSTRAD introduce la nuova stam¬ 
pante DMP 4000 a matrice di punti con 
rullo da 15 pollici per 132 colonne di 
stampa a 10 caratteri per pollice e con ve¬ 
locità di 200 caratteri al secondo. 

La stampante DMP 4000 funziona con 
l’intera gamma di personal computer della 
AMSTRAD e con qualsiasi altro personal 
e home computer dotato di interfaccia 

► ►► 
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standard parallela e costituisce la stam¬ 
pante disponibile oggi con le caratteristi¬ 
che più avanzate. 

Più di cento diverse combinazioni di stili 
di caratteri, inclusa la stampa ”near letter 
quality” (NLQ) unitamente all’insieme 
completo di caratteri ASCII ed all’insieme 
di caratteri grafici IBM, costituiscono la 
soluzione ad ogni problema di stampa. 

In aggiunta, le possibilità di indirizzamen¬ 
to del singolo punto permette la stampa 
di ogni tipo di grafico e la completa com¬ 
patibilità con lo standard EPSON permet¬ 
te alla stampante DMP 4000 di operare 
correttamente con i più diffusi packages 
di software applicativo. 

Il prezzo al pubblico di questa stampante 
e di lire 649.000 (IVA esclusa). 


SCHEDA TECNICA 

Sistema di Stampa: 

Matrice di punti ad impatto 

Velocità di stampa: 

200 CPS (caratteri standard) 50 
CPS (caratteri NQL) 

Caratteri: 

96 Ascii 

96 corsivo 

96 NLQ 

96 NLQ corsivo 

9 set caratteri internazionali 

132 caratteri speciali 

Numero Colonne: 

136 standard 
233 condensato 

Velocità di Interlinea: 

100 m/sec 

Interfaccia: 

Parallela (compatibile Centronics) 


AMSTRAD 

Stampante DMP 3160 a 160 CAR/SEC 



La Amstrad amplia la sua gamma di 
stampanti introducendo la nuova DMP 
3160 a matrice di punti con stampa su 80 
colonne a 10 cpi (caratteri per pollice) e 
velocità di 160 caratteri al secondo. 

La stampante DMP 3160 funziona con 


l’intera gamma di personal computer pro¬ 
dotti dalla AMSTRAD e con qualsiasi al¬ 
tro personal computer dotato di interfac¬ 
cia standard parallela. 

La DMP 3160 accetta tutti i codici di con¬ 
trollo dello standard EPSON e supporta 
l’insieme completo di caratteri grafici IBM 
oltre a permettere più di cento diversi stili 
di caratteri compresa la stampa di testi in 
forma compatta, espansa e “Near Letter 
Quality” (NLQ) e la stampa di grafici. 
Fogli singoli o moduli continui possono 
essere alternativamente usati ad uno spe¬ 
ciale sistema “flatbed” permette una faci¬ 
le introduzione frontale della carta ed il 
suo allineamento sia nel funzionamento a 
frizione che quello con trattori. 

Accanto alla nuova DMP 3160 la AM¬ 
STRAD offre la stampante DMP 3000 
con le medesime caratteristiche della pre¬ 
cedente ma con velocità di stampa ridotta 
a 100 caratteri al secondo. 

Il prezzo al pubblico della DMP 3160 è di 
Lire 369.000 mentre il modello DMP 3000 
viene 349.000. 

Naturalmente i prèzzi si intendono IVA 
esclusa. 


SCHEDA TECNICA 

Sistema di Stampa: matrice di punti 
ad impatto 

Velocità di Stampa: 

160 CPS (caratteri standard) 

40 CPS (caratteri NLQ) 

Dimensione Carattere: 

2.1 x 2.55 millimetri 
Dimensioni di Stampa: 

Standard 10 CP1/80 CPL 
Mini 12 CP1/96 CPL 
Condensato 17 CPI/137 CPL 
Doppia larghezza standard 5 
CPI/40 CPL 

Doppia larghezza Mini 6 CP1/48 
CPL 

Doppia larghezza condensato 8.5 
CPL/68 

Numero Colonne 

80 standard 
40 doppia larghezza 
132 condensato 

66 doppia larghezza condensato 

Interfaccia: 

Parallela (Centronics compatibile) 
Alimentazione: 

220/240 volt c.a. a 50 Hz 

Dimensioni: 

400 x 250 x 100 millimetri 
Peso: 

4.2 Kg 


COMMODORE 


DISK DRIVE 1581 



L’introduzione di questo nuovo disk 1581 
da 3,5” mette a disposizione dei modelli 
C-64 e C-128 il meglio della tecnologia 
sviluppata sui dischi. 

I principali vantaggi di questa tecnologia 
sono costituiti da una maggior velocità 
nel trasferimento dei dati, una maggior 
capacità di memoria per l’archiviazione ad 
una miglior protezione da incidenti fortui¬ 
ti che possono occorrere al disco stesso. 
Rispetto ai disk da 5” 1/4, i nuovi da 
3,5” sono più compatti e hanno una soli¬ 
da protezione per prevenire eventuali de¬ 
formazioni o abrasioni dei supporti ma¬ 
gnetici. 

La capacità del modello 1581 è di 880 
KB, ideale anche per gli utilizzatori più 
esigenti. 

L’interazione tra programmi e disco è più 
veloce grazie alla velocità di trasferimento 
dei dati che, nel modello 1581, e tre volte 
superiore rispetto a quella degli attuali 
disk drive del C-64. 

II nuovo 1581 è totalmente compatibile 
con i modelli C-128, C-64, PLUS4, e 
C-16. 

MICROSOFT 

Presenta: 

il nuovo compilatore Basic 

Si chiama QuickBasic 3.0 il nuovo 
compilatore Basic presentato dalla Mi¬ 
crosoft. 

Il package QuickBasic si compone di 
un veloce compilatore, di un sofistica¬ 
to debugger e di un supporto per i co- 
processori matematici 8027 e 80287. 

Il programma di debugger è basato sul 
«Code View Debugger» fornito assie¬ 
me al compilatore C della Microsoft 
stessa. 

Esso inizia ad operare durante l’esecu¬ 
zione di un programma mediante la 
pressione dei tasti control-break. 

È possibile dunque, grazie a questo 
potentissimo debugger determinare gli 
errori seguendo passo dopo passo 
l’esecuzione del codice sorgente. 
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COMMODORE C64 
IN CONFEZIONE TELEMATICA. 
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È possibile inoltre, esaminare il conte¬ 
nuto delle variabili mentre il program¬ 
ma è in fase di esecuzione e inserire 
dei «break-points» per arrestare l’ese¬ 
cuzione del programma. 

Un’altra caratteristica interessante di 
questo compilatore Basic è quella che 
permette all’utente di dividere lo scher¬ 
mo in finestre e quindi «vedere» con¬ 
temporaneamente il codice sorgente, i 
valori delle variabili e l’output del pro¬ 
gramma, il tutto mentre il programma 
stesso è ancora in fase di esecuzione. 

Il supporto per il coprocessore mate¬ 
matico permette, nel caso che Putente 
disponga del coprocessore stesso, di 
generare un codice molto veloce men¬ 
tre qualora l’utente non disponesse di 
tale coprocessore il supporto «setta» 
automaticamente le varie routine soft¬ 
ware che permettono di emulare il fun¬ 
zionamento del coprocessore matema¬ 
tico. 

Vi sono inoltre a disposizione 
dell’utente numerose altre caratteristi¬ 
che inerenti la programmazione come 
ad esempio il supporto per le variabili 
locali e globali, la possibilità di utiliz¬ 
zare labels alfanumeriche per le linee 
al posto dei «classici» numeri di linea 
e la compilazione separata che permet¬ 
te la divisione dei programmi in modu¬ 
li e la possibilità di compilare ogni sin¬ 
golo modulo in maniera indipendente. 
Inoltre è possibile riunire i singoli mo¬ 
duli in una «libreria» e utilizzarli in al¬ 
tri programmi senza bisogno di doverli 
ricompilare. 

La Microsoft ha anche aggiunto una 
tecnica di ricerca ed individuazione de¬ 
gli errori molto sofisticata. 

Infatti, alla fine di ogni compilazione, 
sarà il compilatore stesso a posizionare 
il cursore sull’errore individuato e che 
dovrà essere corretto. 

Il compilatore QuickBasic 3.0 offre la 
totale compatibilità con lo .standard 
del linguaggio Basic e supporta il mo¬ 
do grafico esteso della EGA. 

Per poter utilizzare il QuickBasic 3.0 
occorre un PC I.B.M. o un suo com¬ 
patibile con almeno una memoria 
RAM di 320 Kbytes. 

Inoltre è richiesta una release del siste¬ 
ma operativo MS-DOS superiore alme¬ 
no alla versione 2.0. 

C’è da osservare che il QuickBasic 
suppporta sia floppy disk da 5” 1/4 
che 3” 1/2. 

11 costo di questo pacchetto software è 
di 99 dollari U.S.A. 

Per ulteriori informazioni: 

Microsoft S.p.A. • Via Michelangelo, 1 

20093 Cotogno Monzese (MI) • 

Tel.: 02/2549741 


Da oggi il tuo tempo libero acquista 
una nuova dimensione con COMMO¬ 
DORE, SEAT e SIP. 

Prova ad immaginare quante altre co¬ 
se belle puoi fare oltre ai giochi ed ai 
programmi, trasformando il C-64 in 
un terminale telematico. 

Oltre al Computer, infatti, la scatola 
contiene una grande novità compieta- 
mente gratuita: l’Adattatore Telemati¬ 
co. Questo ti permette di oltrepassare 
i confini della tua stanza e di aprire 
una finestra sul mondo. 

L’adattatore telematico ti consentirà 
infatti di entrare in contatto con ser¬ 
vizi di estremo interesse per un ap¬ 
passionato di computers come te. 

VIDEOTEL, un servizio con il quale 
potrai col legarti 24 ore su 24 con al¬ 
tre 250 Banche Dati e ricevere video¬ 
giochi o programmi, informazioni e 
servizi inerenti il tempo libero, il turi¬ 


smo, la scuola e utilizzare un servizio 
di casella postale per lo scambio di 
messaggi con tutti gli altri abbonati. 

PAGINE GIALLE ELETTRONICHE, un 

servizio che sviluppa e diffonde in 
tempo reale informazioni di carattere 
anagrafico e tecnico-commerciale. 
Questo collegamento può portare an¬ 
che i tuoi genitori ad una conoscenza 
più approfondita del mondo delle 
aziende. 

La scatola telematica 1 contiene: 

• 1 C-64 C 

• 1 1530 Registratore di dati 

• 1 Geos sistema operativo (da usare 
con drive 1541) 

• 1 6499 Adattatore Telematico 

La scatola telematica 2 contiene: 

• 1 1541 Unità a dischi 

• 1 1351 Mouse 

• 1 6499 Adattatore Telematico 
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Ministoria 
dei Modem 

Modem 

in banda base e 
■ in banda fonica 

Trasmissioni 
sincrone 
e asincrone 

Standard Hayes 


II Modem, questi 



I ccoci al nostro secondo appuntamento; proseguiamo il 
discorso sulla trasmissione dati lasciato in sospeso (sul 
più bello!) lo scorso numero. 

Come abbiamo già detto, le tecniche di trasmissione dati si sono 
andate sviluppando per far fronte all’esigenza di scambio di in¬ 
formazioni tra elaboratori o tra terminali periferici ed elaborato¬ 
re. Con il termine «periferici» intendiamo anche quelli geografi¬ 
camente distribuiti. 


Per garantire una connessione capillare, quale soluzione migliore 
se non quella di utilizzare la rete telefonica? 

In questo modo si ottenne un duplice vantaggio: le connessioni 
erano già esistenti, in quanto la rete dati veniva a coincidere con 
la rete telefonica mondiale; un’elevata standardizzazione, che ga¬ 
rantiva la più ampia possibilità d’interconnessione tra le reti tele¬ 
foniche di paesi diversi. 

Sorgeva ora un problema: la rete telefonica, progettata ed utiliz¬ 
zata per il trasporto di segnali analogici, propri delle trasmissioni 
telefoniche, risultava inadatta al trasporto dei segnali digitali de¬ 
gli elaboratori. Occorreva quindi che, prima dell’inoltro, tali se¬ 
gnali venissero amplificati per ovviare alle forti dispersioni sulla 
linea, resi compatibili con gli standard telefonici, e che al ricevi¬ 
mento fosse compiuta l’operazione inversa. 

Queste due operazioni vennero affidate ai MoDem, abbreviazio¬ 
ne di MODulatore/DEModulatore. 

Il loro compito è quello di modulare il segnale in partenza, e di 
demodulare quello in arrivo (vedi figure), facendo variare uno 
dei tre parametri caratteristici della portante: frequenza, fase, 
ampiezza; da cui poi prendono nome le tre tecniche di trasmis¬ 
sione: PSK (Phase Shifting Key), FSK (Frequency Shifting Key) 
e QAM (Quadrature Amplitude Modulation). 

Nella letteratura specializzata, il Modem viene spesso indicato 
anche con il termine DCE (Data Circuit terminating Equipment), 
mentre i calcolatori e i terminali vengono indicati con DTE (Da¬ 
ta Terminal Equipment). 

Esistono due tipi di Modem. In «banda fonica», di cui abbiamo 
appena parlato, che utilizzano la normale linea telefonica; in 
«banda base», utilizzati quando la trasmissione avviene su linee 
appositamente studiate ed installate per la trasmissione dati, 
quindi con elevata qualità del segnale e costituite da speciali cavi 
che offrono elevatissime velocità di trasferimento e ampia banda 
di trasmissione, che consente di trasmettere i segnali cosi come 
partono del terminale, senza doverli amplificare ma semplice- 
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di Fabio Scafati 
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mente adattoncloli elettricamente alla rete telefonica. Essendo 
quindi più semplici dei Modem in banda fonica, il costo dei Mo¬ 
dem in banda base è inferiore, il che ne favorisce l'uso e la dif¬ 
fusione quando possibile. 

Le modalità di trasmissione oggi utilizzate sono due: asincrona 
(detta anche start/stop) e sincrona. La prima, prende origine 
dalle comunicazioni telescrivente-elaboratore, in cui la velocità di 
battitura dell’utente sulla tastiera è contenuta e non costante; 
quindi la successione temporale degli istanti in cui vengono in¬ 
viati i caratteri è, di fatto, casuale: può esistere un intervallo di 
tempo qualunque tra la fine di un carattere e l'inizio del succes¬ 
sivo. Ogni carattere inviato, è preceduto allora da un segnale di 
inizio (bit di START) e seguito da un segnale di fine (bit di 
STOP). L’apparato ricevente è cosi in grado di identificare il ca¬ 
rattere trasmesso e di prelevarlo dalla linea. Questa modalità, pe¬ 
raltro molto utilizzata, è relativamente inefficiente; infatti per 
ogni carattere (8 bit) servono due bit di controllo (bit di START 
e di STOP). Quindi per trasmettere 8 bit di dati, occorre inviar¬ 
ne IO, con un sovraccarico del 20°^o. 

La seconda, molto più efficiente alle elevate velocità, è utilizzata 
dall’utenza professionale. Viene detta «sincrona» in quanto i ca¬ 
ratteri non vengono più trasmessi uno alla volta, ma in «pac¬ 
chetti» di decine o centinaia di caratteri. Ogni pacchetto inviato, 
è preceduto da un segnale di sincronismo (SYN) originato dal 
Modem che trasmette. Grazie a tale segnale, il Modem ricevente 
sa in quali istanti prelevare i caratteri del pacchetto, dalla linea. 
La fine del pacchetto, è segnalata anche qui da un carattere di 
chiusura e da uno o più caratteri di controllo, atti a rilevare 
eventuali errori di trasmissione. In modalità sincrona, vengono 
utilizzati solo pochi caratteri in più oltre quelli del messaggio, e 
il sovraccarico è trascurabile. 

Vediamo ora come si presenta fisicamente un Modem comune¬ 
mente utilizzato per trasmissioni non professionali (asincrone). 
Ha la forma di un contenitore grande circa come una scatola di 
floppy disk, generalmente in alluminio o lamiera verniciata. 
Frontalmente presenta numerose spie, utili nel corso della tra¬ 
smissione, e a volte, uno o più commutatori. Sul retro sono pre¬ 
senti l’uscita RS-232, che rappresenta lo standard di comunica¬ 
zione asincrona nel mondo PC ed Home; l’alimentazione, uno o 
due collegamenti alla rete telefonica, l’interruttore di accensione 
e, a volte, il controllo del volume dell’altoparlantino interno (se 
c’è). 


I led presenti sul frontalino aiutano lo «smanettone» a controlla¬ 
re la trasmissione. Quello sempre presente su qualunque tipo di 
Modem, è il CD (Carrier Detect), rivelatore della portante telefo¬ 
nica, ovvero di avvenuto «aggancio» del Modem situato sull’al¬ 
tro capo della linea. Nei Modem più «lussuosi» si possono trova¬ 
re altre spie: MR (Modem Ready), TR (Terminal Ready), SD 
(Send Data), RD (Receive Data), HS (High Speed), AA (Auto 
Answer), OH (Off Hook). 

Quando si accende il Modem, si illumina la spia MR: Modem 
pronto; l’accensione del led TR indica la disponibilità, del termi¬ 
nale o calcolatore, a ricevere o inviare comandi; SD lampeggia 
quando vengono inviati dei dati, RD quando vengono ricevuti; 
HS si illumina quando il collegamento è ad alla velocità (12(X) o 
2400 baud); AA è attiva quando il Modem è abilitato a rispon¬ 
dere automaticamente alle chiamate (es. gestione di un BBS); in¬ 
fine, OH risulta accesso quando il collegamento è in atto. 

A proposito, dimenticavo di dire che, a livello commerciale, si è 
affermato lo standard «Hayes», dal nome della casa costruttrice 
che per prima lo ha introdotto sul mercato statunitense. Tale 
standard prevede l’esistenza di un set di comandi da inviare al 
Modem. Tale set di istruzioni non è un vero è proprio linguag¬ 
gio, bensì un insieme di macroistruzioni che semplifica, e di mol¬ 
to, la vita ai progettisti del software di comunicazione. In realtà, 
quindi, i vantaggi di questo tipo di Modem sono «trasparenti» 
all’utenza finale, o quasi. Infatti l’unica componente evidente è 
la velocità del software. Tuttavia, viste le basse velocità di tra¬ 
smissione utilizzabili sulle linee telefoniche, anche questo vantag¬ 
gio viene pressoché annullato! 
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Figura 3.1 - Esempio di modulazione di frequenza. 
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Figura 3.2 - Esempio di modulazione di ampiezza. 
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un lavoro al tuo posto, il tempo che 
risparmi se ne va solitamente a sor¬ 
vegliare il computer per assicurarti 
che faccia il lavoro a dovere»; 

(a proposito della grande quantità di 
pubblicità presente nelle riviste spe¬ 
cializzate) 

«Le riviste d’informatica esistono so¬ 
prattutto per dare spazio alla pubbli¬ 
cità. Il testo, relegato quasi sempre 
sulle pagine di sinistra, è presentato 
in modo da recare il minimo danno 
possibile agli inserzionisti»; 

(a proposito dei word processors) 

«Il problema di quasi tutti gli elabora¬ 
tori di testi è che si perde metà del 
tempo per pensare al programma, in¬ 
vece di pensare a quel che si dovreb¬ 
be scrivere». 


MiCROMANIA 

di Charles Piatt 

Feltrinelli Editore 

Via Andegari 6, 20121 Milano 

214 pagine, L. 20.000 

Charles Piatt, programmatore dilet¬ 
tante di videogiochi, ma ormai ricer¬ 
catissimo dalle case di software ame¬ 
ricane per la sua grande inventiva e 
quindi vicino al professionismo, è an¬ 
che uno scrittore di grande vena e do¬ 
tato di grande senso dell’ironia. Per 
l’edizione inglese, tanto per fare un 
esempio, si è fatto aiutare dall’amico 
David Langford, il quale ha provvedu¬ 
to a tradurre (!) l’inglese americaniz¬ 
zato dell’originale, nell'inglese dal 
quale Raffaele Petrillo, con altrettan¬ 
to gusto e brio, ha ricavato l’edizione 
italiana arricchita dai geniali disegni 
di Pirro Cuniberti. 

La cosa essenziale è che questo libro 
racconta davvero gli elementi fonda- 
mentali dell’informatica in modo mol¬ 
to succinto, allegro e comprensibile a 
chiunque, a differenza di molti opu¬ 
scoli e manualetti che da anni si sfor¬ 
zano inutilmente di fare la stessa co¬ 
sa in maniera noiosa e complicata. 
Sorpredente è la perfetta aderenza al¬ 
la realtà dei problemi che sorgono 
prima, durante e dopo l’acquisto di 
un computer, puntualizzati delle qui- 
dici «Leggi di Piatt», sparpagliate in 
tutto il libro, Eccovi le più spassose: 
(a proposito delle stampanti che si in¬ 
ceppano proprio quando si è momen¬ 
taneamente assenti) 

«Quando chiedi al computer di fare 


Conclusioni 

Purtroppo queste poche righe non 
rendono merito al contenuto di que¬ 
sto esilarante e geniale volume che 
consiglio a chiunque di leggere tutto 
d’un fiato, come ha fatto il sootto- 
scritto . 

Il prezzo è corretto. Fabio Sca(ati 


SISTEMI DI COMUNICAZIONE 
E RETI DI COMPUTER 

di Fred Halsall 

Masson Italia Editore/Addison 

Wesley 

L. 30.000 

Il libro offre una moderna e autorevo¬ 
le introduzione ai principi e alle tecni¬ 
che proprie della trasmissione dati, 
con particolare riguardo per reti di 
calcolatori e per sistemi di informati¬ 
ca distribuita. 

È questo un settore in rapida espan¬ 
sione per soddisfare le richieste di 
società multinazionali e multisede, le 
quali hanno sempre più impellente il 
bisogno di collegare in rete i propri 
sistemi di elaborazione dati. 

La diffusione di questi sistemi è tut¬ 
tavia legata a vincoli di interconnes¬ 
sione che presuppongono una forma 
standard internazionale. 

È questo uno dei temi fondamentali 
del volume. Inoltre il testo riporta alla 
fine di ogni capitolo degli esercizi 
adeguati. Robert Feltoni 



DIDAMATICA ’87: 
SOFTWARE DIDATTICO 

3° Censimento Nazionale 
a cura dell’AlCA (Ass. (tal. per 
l’informa.ca e il Calcolo Autom. 
Masson Italia Editore 
342 pagine, L. 40.000 


Come molti di voi avranno già capito, 
«Software Didattico» dell’AlCA non è 
un vero e proprio «libro», bensì una 
raccolta, sotto forma di schede infor¬ 
mative, del software didattico circo¬ 
lante in Italia. 

Finalmente — qualcuno penserà — 
abbiamo una raccolta selezionata di 
programmi che ci potranno essere 
utili nello studio o in altre attività. E 
invece no: la raccolta è stata realizza¬ 
ta attraverso la più ampia divulgazio¬ 
ne possibile della scheda-censimento 
ma il carattere volontario e libero 
dell’adesione di chi la restituisce 
compilata all’AlCA non consente di 
qualificare l’insieme dei dati raccolti. 
In altre parole, la descrizione di ogni 
programma riportata nelle schede, è 
quella fornita dal produttore, quindi, 
inevitabilmente parziale. * 

Perché l’AlCA fa questo censimento? 
Le ragioni sono rimaste le due dichia¬ 
rate sin dall’inizio del primo censi¬ 
mento: 

Contribuire a far conoscere quanto 
viene prodotto e reso disponibile nel 
nostro paese, al fine di facilitare l'in¬ 
contro fra gli addetti ai lavori da un 
lato e fra domanda e offerta dall’al¬ 
tro. Contribuire alla costruzione di 
una «conoscenza critica» di quanto 
viene prodotto, dato che il settore del 
software didattico è estremamente di¬ 
somogeneo e le soluzioni proposte 
devono essere accuratamente studia¬ 
te e valutate, prima di poter essere 
accettate come utilizzabili. 
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A chi è destinato 

Agli esperti di Software Didattico per 
conoscere cosa si sta sviluppando in 
Italia da parte di altri esperti. Agli 
utenti docenti, studenti di scuole e 
università, responsabili organizzativi 
per scoprire che cosa è disponibile e 
iniziare a conoscerlo attraverso alcu¬ 
ni parametri significativi. Agli opera¬ 
tori deH’informatica che vi potranno 
trovare interessanti elementi relativi a 
un ambiente relativamente nuovo, in 
cui l’elaboratore si sta aprendo una 
strada. 

Descrizione generale 

Il volume contiene 292 schede compi¬ 
late dagli stessi Autori che descrivo¬ 
no, per ogni programma, gli obiettivi 
didattici, gli strumenti informatici su 
cui funziona, la documentazione di 
cui è corredato, le sperimentazioni a 
cui è stato eventualmente sottoposto 
e, per molti dei programmi commer¬ 
cialmente disponibili, anche il prezzo. 

Conclusioni 

Un appunto va fatto all’indice per ma¬ 
terie: capita infatti che manchino al¬ 
cune schede, presenti invece sull’in¬ 
dice (quelle del CNR sugli urti); alcuni 
riferimenti alle pagine sono sbagliati, 
altri rimandano a pagine contraddi¬ 
stinte da un numero che è maggiore 
di quello dell’ultima pagina del volu¬ 
me. 

Fabio Scafati 


INFORMATICA 
E ALFABETIZZAZIONE 
di L. Trisciuzzi 
Tecnodid, Napoli, 1986 
136 pagg. ■ L. 20.000 


Anche se il sottotitolo del libro è 
«L’uso del computer nella scuola ele¬ 
mentare», esso può essere usato, per 
una prima alfabetizzazione informati¬ 
ca, anche nella scuola media. 

Il libro si compone di quattro parti: la 
prima è un’introduzione culturale al 
computer «Un po’ di storia, L’hardwa- 
re, I linguaggi, Computer e apprendi¬ 
mento, il programma, Avvertenze e 
istruzioni»: le altre tre riguardano la 
programmazione. 

In particolare, nella seconda parte, 
c’è un’introduzione al BASIC dello 
Spectrum, mediante sette programmi 
didattici (Chi cerca trova. Indovina la 
nota musicale. Targhe d'auto. Opera¬ 


zioni di arimtmetica, Bombardiere 
metematico, Anagrammi per i più pic¬ 
cini); nella terza parte un'introduzione 
alla grafica ed al suono, sempre dello 
Spectrum, con otto programmi vari; la 
quarta parte è costituito da un solo 
lungo programma per imparare a leg¬ 
gere, con quattro livelli di difficoltà. 

I programmi possono essere adattati 
ad altri piccoli computer, con un mi¬ 
nimo di conoscenza delle tecniche di 
programmazione e del particolare BA¬ 
SIC usato. 

L’Autore, che è docente ordinario di 
Metodologia e Didattica all’Università 
di Firenze, ha usato un linguaggio 
chiaro, senza inutili tecnicismi, ed ha 
puntigliosamente spiegato ogni pezzo 
dei programmi, in modo che il Lettore 
non si limiti a battere passivamente i 
medesimi sulla tastiera, per l’effetto 
desiderato dall’Autore, ma impari il 
significato e l’uso delle varie istruzio¬ 
ni impiegate. 

Giuseppe Festa 



INTERFACCIAMENTO 
DEI MICROCOMPUTER 

di R.C. Holland 

Franco Muzzio & C. editore 

240 pagine, L. 18.000 


A chi è destinato? 

Il testo è rivolto principalmente a co¬ 
loro che desiderano conoscere le tec¬ 
niche e le metodologie che permetto¬ 
no l'interfacciamento tra microcom- 
puters e dispositivi esterni. 

Non sono comunque, vista la sempli¬ 
cità con cui vengono trattati gli argo¬ 
menti, richieste specifiche conoscen¬ 
ze di base. 

Descrizione 

Sono ormai disponibili molti libri che 
offrono un’introduzione alla tecnolo¬ 
gia dei microprocessori. 


Quesli testi forniscono la descrizione 
dei principi fondamentali dei circuiti 
microelettronici e del funzionamento 
e della programmazione dei micropro¬ 
cessori. 

Essi tralasciano dei modi con cui i 
microcomputers possono venire colle¬ 
gati a dispositivi esterni o a periferi¬ 
che. 

Questo libro esamina in dettaglio le 
tecnologie e i circuiti per l’interfac¬ 
ciamento. Tratta i principali compo¬ 
nenti, e illustra come possono venire 
utilizzati sotto forma di circuito, e 
programmati per svolgere compiti di 
interfaccia. 

Sono inclusi la descrizione dei meto¬ 
di per il collegamento dei microcom¬ 
puter a dispositivi quali stampanti, 
terminali video, monitor TV, display, 
tastiera, unità di controllo, altri com- 
puters, strumentazione di processo e 
viene inoltre fornita un’ampia lista di 
dispositivi specifici. 

Vengono poi esaminati in dettaglio 
componenti e sistemi di intefaccia- 
mento con i microprocessori dei se¬ 
guenti costruttori: Intel, Zilog, Texas 
Instruments, MOS Technology e con i 
microcomputers BBC e Apple. 

È stata inclusa pure l’illustrazione dei 
principi di funzionamento dei micro¬ 
computers in modo che tale testo 
possa offrire una guida completa per 
apprendere le basi fondamentali della 
tecnologia dei microcomputers. 

Nei capitoli 1, 2 e 7, ad esempio, vie¬ 
ne descritta la tecnologia generale 
(circuiti logici, blocchi circuitali di ba¬ 
se e loro programmazione), mentre il 
resto del libro conduce il lettore attra¬ 
verso le basi e i dettagli dell’intefac- 
ciamento. 

Al termine del volume si trova un 
Glossario che fornisce una sommaria 
spiegazione dei termini tecnici usati 
nel libro. 

Giudizio 

Il testo si compone di undici capitoli 
armoniosi e ben articolati, ognuno 
dei quali è corredato di numerosi 
schemi tecnici e disegni per rendere 
più facile la comprensione dell’argo¬ 
mento trattato. 

Esso è anche dotato di una appendi¬ 
ce contenente il famoso codice ASCII 
(ormai la presenza di tale codice nelle 
appendici di un libro sui computers è 
un classico) e di glossario contenen¬ 
te il significato dei termini tecnici 
usati nel testo. 

Anche il costo del libro ci sembra ra¬ 
gionevole. 

Robert Fettoni 
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INTRODUZIONE AL SISTEMA 


MS-DOS 


Parte 2 

P. Ciancarini 


Questa rubrica è dedicata al sistema 
operativo MS-DOS, quello dei personal IBM e 
dei cosiddetti «compatibili», che recentemente 
il Ministero della Pubblica Istruzione ha 
scelto come computer standard da usare 
nella Scuola Superiore. 


enza software, un computer è solamente un inuti¬ 
le pezzo di metallo e plastica senza vita. La sua 
anima sono i programmi. 

Esistono due tipi di software: i programmi di sistema, che 
gestiscono le operazioni del computer stesso, ovvero sia 
l’interazione verso l’utente che quelle che avvengono tra i 
vari dispositivi, e i programmi applicativi, che risolvono i 
particolari problemi degli utenti. 

Il più importante dei programmi di sistema è il sistema 
operativo, che controlla tutti dispositivi che fanno parte 
dell’elaboratore e fornisce la base sulla quale possono 
operare le applicazioni. Se chi programmi queste ultime 
dovesse preoccuparsi di programmare in tutti i dettagli la 
gestione dei dispositivi, come per esempio la lettura e la 
scrittura delle informazioni su un dischetto (per ciascuna 
operazioni delle quali occorrono decine o addirittura cen¬ 
tinaia di istruzioni di linguaggio macchina), ben pochi sa¬ 
rebbero i programmi a disposizione del pubblico! È il si¬ 
stema operativo che si fa carico di sollevare il program¬ 
matore da tutti i compiti di routine, facilitandogli il compi¬ 
to di concentrarsi sul programma vero e proprio. 

Il sistema operativo in effetti ha due compiti fondamentali 
sostanzialmente differenti. Da un punto di vista astratto, 
ha il compito di semplificare l’uso dell’elaboratore, dando 


all’utente l’impressione di avere a disposizione una mac¬ 
china molto più semplice da usare che non la macchina 
reale (questa macchina astratta viene spesso indicata col 
nome di macchina virtuale). Da un punto di vista più con¬ 
creto, il sistema operativo deve gestire le risorse dell’inte¬ 
ro sistema, coordinando le interazioni dei processori, del¬ 
le memorie centrali o permanenti, dei dischi, delle stam¬ 
panti, delle interfacce di rete, ecc... 

Nello schema a fondo pagina è riassunta la gerarchia di 
cui si compone un sistema di calcolo. Al livello più basso 
vediamo l’hardware, che a sua volta si compone di vari li¬ 
velli (non è scopo di questa serie di articoli entrare nei re¬ 
lativi dettagli). Come si vede, il livello base del software di 
sistema è costituito dal sistema operativo. 

Delle due, la funzione più importante per degli utenti alle 
prime armi quali siamo noi è certamente la prima: occorre 
imparare bene quella mezza dozzina di comandi che ci 
permettono di sfruttare facilmente le più comuni funziona¬ 
lità del nostro computer. Solo se ci addentreremo nei 
meandri della programmazione di sistema occorrerà di¬ 
ventare familiari coi dettagli della programmazione delle 
funzioni di gestione del sistema operativo. 

I comandi principali del sistema operativo DOS sono i se¬ 
guenti: 

dir elenca il contenuto del disco; 

format prepara per l’uso un dischetto vergine; 

copy copia un file da un disco all’altro; 
cd cambia directory; 

del cancella un archivio dal disco. 

Prima di proseguire, va ricordato che i sistemi MS-DOS 
compatibili si trovano comunemente in due configurazio¬ 
ni: o a doppia unità per dischetti (chiamate disk drive), op¬ 
pure a drive singolo ma accoppiato con un disco rigido 
(hard-disk). Nel primo caso le due unità si chiamano con¬ 
venzionalmente a: e b:. Nel secondo caso le unità si chia¬ 
mano rispettivamente : l’unità a floppy e c: quella a disco 
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rigido. In ogni momento è attiva una sola unità; il compu¬ 
ter segnala l’unità attiva mediante il prompt: inizialmente 
questo è 

A> 

il che significa che è attiva l’unità a:. Se il prompt fosse 

B> 

sarebbe attiva l’unità b:. Si noti che il disco col sistema 
va sempre messo nell’unità a:, a meno che non sia pre¬ 
sente il disco rigido. 

Per cambiare il disco attivo basta scriverne il nome dopo 
il prompt: 

A>b: 

cambia il disco attivo da a: in b:. Il prompt cambia di con¬ 
seguenza. 

Il comando dir 

Come dicevamo la volta scorsa, un dischetto in formato 
MSDOS contiene una serie di elementi che rappresentano 
insiemi di inìormazioni. Dando il comando 

A>dir 

noi otteniamo l’elenco completo (detto directory) di questi 
insiemi — contenuti in questo caso nel disco a: —, e che 
gli informatici chiamano file. 

Vediamo un piccolo directory tipico. 

COMMAND COM 15957 4-12-84 9.00a 

ASSIGN COM 772 4-12-84 9.00a 

CHKDSK COM 6468 4-12-84 9.00a 

In questo elenco, la prima colonna rappresenta il nome 

dell’archivio; la seconda, chiamata estensione, rappresen¬ 
ta il tipo ; la terza la lunghezza in caratteri del contenuto; 
la quarta e la quinta rispettivamente la data e l’ora di 
creazione dell’archivio (la lettera a finale sta per antimeri- 
diem, ovvero l’ora indicata appartiene alle ore del mattino; 
quelle del pomeriggio sono indicate col suffisso p, che 
sta per postmeridiem). Il significato di tali informazioni 
dovrebbe essere ovvio anche per il lettore principiante, 
con l’importante eccezione di quelle contenute nella se¬ 
conda colonna. 


L’estensione 


le di sistema, che sono quei file che contengono i pro¬ 
grammi che costituiscono il DOS, cioè il sistema operati¬ 
vo stesso, e che vengono in parte caricati in memoria cen¬ 
trale all’accensione della macchina (si ricordi che il pro¬ 
cessore può eseguire solamente i programmi che sono re¬ 
sidenti in memoria centrale). 

Le estensioni di sistema sono quattro: 

.COM sta per « command »: se un file ha questo suffisso 
vuol dire che il suo contenuto è eseguibile, è cioè 
un programma, che corrisponde ad un comando. 
Questi programmi contengono codice macchina di¬ 
rettamente eseguibile dal processore (si dice che 
sono in memory image format, cioè in «formato im¬ 
magine di memoria»»). Questo è il formato della 
maggior parte dei comandi esterni del sistema 
operativo: es:: format, keybit, chkdsk. 

.EXE sta per « execute »: sono analoghi ai precedenti, ma 
il programma contenuto è rilocabile, ovvero può 
essere eseguito in zone differenti della memoria. 
In altre parole, prima di eseguirli, il sistema opera¬ 
tivo dovrà effettuare alcune operazioni di riarran¬ 
giamento delle informazioni a sua disposizione: 
l’esecuzione sarà leggermente rallentata. Questo è 
il formato della grande maggioranza delle applica¬ 
zioni commerciali. 

.BAT sta per «òafcA?»: contiene una sequenza di coman¬ 
di di sistema. I file di questo tipo sono creati 
dall’utente del computer allo scopo di semplificar¬ 
ne la gestione. In pratica viene assegnato un nome 
ad una sequenza prefissata di comandi, in modo 
da non doverla ripetere tutte le volte. 

.SYS Sta per «sys»: viene assegnato ai file appartenenti 
in esclusiva al DOS. Alcuni dei file di questo tipo 
sono invisibili: non vengono listati nel directory. 
Altre estensioni comuni sono le seguenti: 

.PAS programma sorgente BASIC 
.BAS programma sorgente PASCAL 
.OBJ codice oggetto rilocabile (non direttamente esegui¬ 
bile) 

.PRO programma sorgente PROLOG 

.TXT testo 

.DOC documento 

.BAK copia di sicurezza 

(Nota: un programma sorgente di un dato linguaggio è un 
testo scritto direttamente in quel linguaggio; si usa que¬ 
sto termine per distinguere il testo «leggibile»» dal pro¬ 
gramma oggetto — cioè eseguibile —, generalmente com¬ 
pilato, che invece contiene codice macchina). 


L’estensione è una sorta di «cognome» del file, ed ha lo 
scopo di stabilire il tipo delle informazioni in esso conte¬ 
nute. Il sistema richiede che sia assegnato obbligatoria¬ 
mente a tutti i file contenenti dei programmi, cioè degli in¬ 
siemi di istruzioni scritte in qualche linguaggio diretta- 
mente o indirettamente eseguibili dal calcolatore. Per 
esempio, un file contenente un programma in linguaggio 
BASIC avrà il suffisso .BAS; un file contenente un pro¬ 
gramma scritto in PROLOG avrà il suffisso .PRO, e così 
via (in genere il suffisso dei programmi scritti in un certo 
linguaggio richiama il nome del linguaggio stesso). Il suf¬ 
fisso non è obbligatorio se il file contiene dei dati. Spes¬ 
so i progammi commerciali (es. Wordstar, DBase 3, Lotus 
123, ecc.) aggiungono comunque un suffisso particolare 
anche a certi file di dati. 

I suffissi più importanti sono quelli che caratterizzano i fi- 


Possiamo a questo punto chiederci quale sia il significato 
dei file contenuti nel disco di sistema. I più importanti so¬ 
no i seguenti: 


COMMAND.COM 

CHKDSK.COM 

COMP.COM 

DISKCOPY.COM 

EDLIN.COM 

FORMAT.COM 


contiene i comandi interni, cioè quelli 
più importanti come ad esempio dir e 
copy. 

consente di verificare lo stato di un di¬ 
sco e dei file in esso contenuti (com¬ 
presi quelli invisibili). 

contiene il programma che permette di 
duplicare il contenuto di un disco. 

contiene l’editor di sistema. 

contiene il programma che permette di 
formattare un dischetto vergine. 

Continua □ 


LIST 10/87 


23 











? v >*0 <-:'» a 0 0 

C \G<* JM* 




la Maserati 

degli 

Home-Computer 


ò\ 


?*° 


\o 





A 500 













sibile al programmatore anche ine¬ 
sperto. 

• Linguaggio BASIC residente su 
ROM, comprendente i principali co¬ 
mandi di sistema (cioè LOAD, SAVE, 


complessa. Ci sono varie cose di cui oc¬ 
corre tenere conto nel tentare di spiegare 
il suo funzionamento. A ciascuna, come 
vedremo, corrisponde un modulo ben de¬ 
finito del sistema. 


ossiedo ormai da qualche me¬ 
se Amiga, che è stato defini¬ 
to, paradossalmente, sia «il 
più potente personal computer del 
mondo» che «la Maserati degli 
Home-computer». Vedremo che le 
due definizioni, apparentemente con¬ 
trastanti, sono entrambe molto vere. 
Voglio dedicare questo articolo a 
quelli che, come me, hanno comprato 
questo computer — o hanno intenzio¬ 
ne di farlo —, e che ne sono sempre 
più affascinati, ma non hanno ancora 
ben compreso come funziona. 

/ primi possessori di un Amiga sono 
generalmente degli ex possessori del 
(64 che bau ni, "aiuto fare il salto nel 
mondo dei personal computer. Pur¬ 
troppo chi si è abituato alla spartana, 
ma affidabile semplicità di un home 
computer a S bit — quale il glorioso 
e sempre valido Commodore 64 —fu 
grande fatica ad entrare nel mondo 
estremamente complesso di un perso¬ 
nal a 16/32 bit come l'Amiga (questa 
considerazione vale anche per il Ma¬ 
cintosh e l'A tari S T, che hanno in co¬ 
mune con Amiga buona parte dello 
hardware). Per di più, come al solito, 
la Commodore non ha ritenuto di 
corredare il suo prodotto di tutti i ne¬ 
cessari manuali di documentazione: si 
pensi che la collezione completa dei 
manuali (in edizione inglese: quella 
italiana non esiste) costa più di 
300.000 lire. 

Anche per questa ragione pensiamo 
di fare cosa gradita ai nostri lettori, 
che tutti quei soldi forse non hanno 
voglia di spenderli. 

Per le ragioni esposte sopra, conviene co¬ 
minciare questa chiacchierata paragonan¬ 
do l’Amiga ad una descrizione sommaria 
della struttura di base del ('64. che molti 
conosceranno, anche perche si ritrova so- 
sian/ialmente immutata nelle macchine di 
altre marche. Il sistema operativo del 
Commodore 64 e di una essenzialità esem¬ 
plare, ed una delle cause dirette della sua 
grande fortuna presso il mondo degli hob¬ 
bisti. Elenchiamone le caratteristiche: 

• Sistema operativo su ROM com¬ 
pletamente aperto, cioè noto e acces- 


RUN, ECC.). 

• Macchina monoprogrammata: in 
ogni momento, in memoria centrale 
può essere presente al più un solo 
programma. 

• Grafica in alta risoluzione gestita 
dal processore centrale e accessibile 
da linguaggio macchina. 

• Processore specializzato per il 
suono (non stereo), a tre voci, acces¬ 
sibile da linguaggio macchina. 

Il contrasto tra il C64 e AMIGA è ec¬ 
cezionale: si può dire che cambia tut¬ 
to. 

• il Commodore 64 è una macchina 
unica (il 128 semplicemente «contie¬ 
ne» il 64, ma non lo estende). Amiga 
è una vera e propria linea di elabora¬ 
tori in crescita costante: quest’anno 
sono stati annunciati due nuovi mo¬ 
delli. 

• Il sistema operativo, chiamato 
AMIGADOS, viene interamente carica¬ 
to da disco, per motivi di flessibilità e 
di espandibilità della linea. Occorro¬ 
no, anzi, due dischi: il KICKSTART e 
il WORKBENCH (i nuovi modelli, 
AMIGA2000 e AMIGA500, hanno inve¬ 
ce il KICKSTART residente su ROM). 

• Apparentemente non esiste alcun 
linguaggio di sistema privilegiato, an¬ 
che se la confezione contiene un se¬ 
condo disco comprendente un inter¬ 
prete BASIC (della MICROSOFT™) ab¬ 
bastanza evoluto. Vedremo in realtà 
che il linguaggio più adatto per pro¬ 
grammare l’Amiga (questo è vero an¬ 
che per il Macintosh e l’Atari ST) è il 
linguaggio C, lo stesso del sistema 
operativo UNIX™, cui si ispira. 

• Amiga può eseguire più program¬ 
mi contemporaneamente (questa pos¬ 
sibilità in inglese si chiama multita¬ 
sking). 

• Amiga possiede vari processori speciali 
speciali//ali per la grafica e il suono ste¬ 
reo a 4 voci, inoltre esiste la possibilità di 
ottenere sintesi vocale: esiste un comando 
di sistema (say) che fa «parlare» il com¬ 
puter. 

I a struttura interna del software di base 
di Amiga deve gestire le grandi possibilità 
offerte dal software ed è in effetti molto 


• Interfaccia grafica amichevole gui¬ 
data dal mouse. È chiamata WORK¬ 
BENCH, e costituisce la grande at¬ 
trattiva di Amiga. Grazie a questo 
programma (fornito gratuitamente 
all’acquisto della macchina), è possi¬ 
bile usare facilmente il computer, al¬ 
meno per le operazioni più importan¬ 
ti: caricamento, esecuzione e copia 
dei programmi. Il principio di funzio¬ 
namento è identico a quello di GEOS, 
il nuovo sistema operativo del C64 
(residente anch’esso su disco): non 
occorre più ricordare i nomi dei vari 
comandi di sistema operativo: si fa 
tutto spostando il puntatore del mou¬ 
se sul video, e clickando il bottone 
sull’icona del programma che si vuole 
usare. 

• Librerie grafiche (chiamate com¬ 
plessivamente INTUITION). È sempli¬ 
ce costruire programmi sofisticati 
dalla grafica accattivante, grazie al 
gran numero di primitive grafiche uti¬ 
lizzabili da chi sa programmare in lin¬ 
guaggio C. 

• Multitasking, grazie al sistema 
operativo chiamato EXEC. Amiga è 
per ora l’unico personal computer al 
mondo capace di eseguire contempo¬ 
raneamente più programmi. 

• Completa apertura ed espandibili¬ 
tà del sistema. L’AmigaDOS, grazie 
alla CLI (Command Line Interface), è 
del tutto accessibile: non viene na- 



Fig. 1. Architettura di base di Amiga 
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scosto nulla della struttura interna 
del sistema operativo. Il Macintosh, 
per esempio, è viceversa compieta- 
mente chiuso. Questo rende l’Amiga 
una macchina molto più adatta per 
l’utente inesperto per imparare come 
è fatto dentro un sistema operativo 
complesso. 

• Autoconfigurazione: il sistema 
operativo riconosce automaticamente 
la presenza di uno o più disk drive, 
delle eventuali espansioni di memo¬ 
ria, di eventuali coprocessori anche 
con differenti sistemi operativi (per 
esempio il SIDECAR, l’emulatore PC 
IBM). 

Per chiarire meglio la struttura del sistema 
operativo, si osservi la figura seguente, 
che viene chiamata «diagramma a 
cipolla», e che serve per rappresentare la 
gerarchia di relazioni intercorrente tra i 
sari componenti del software di base. 

All’acquisto, il computer viene tornito 
con due dischi di sistema (più altri due, 
contenenti rispettivamente l’interprete 
BASIC e alcuni programmi dimostrativi, 
il disco Kickstar contiene gli «strati» Exee 
a AmigaDOS della cipolla. Il disco Work- 
bench contiene lo strato più esterno. Esa¬ 
miniamo adesso più da vicino le funzioni 
dei vari moduli del sistema Amiga, a co¬ 
minciare da quelli immediatamente visibili 
all’utente. 

WORKBENCH 


Il Workbench (in inglese significa scriva¬ 
nia) rende estremamente semplice l'uso 
del computer anche per gli utenti meno 
esperti. Col suo mondo fatto di icone e di 
menu selezionabili tramite mouse, il 
Workbench evita al neofita le complica¬ 
zioni dell’uso dei comandi del DOS (Disk 
Operating System). Il compito del WB è 
di trasformare le azioni grafiche che av¬ 
vengono sullo schermo in operazioni in¬ 
terne del DOS. Contiene vari strumenti 
molto importanti, tra i quali Preferences, 
che permette di configurare alcuni attribu¬ 
ti del sistema (colore, stampante, orologio 
interno, ecc.), Icon Editor, che permette 


di personalizzare le Icone, Diskhormai e 
DiskCopy, per gestire i dischetti. Racco¬ 
mandiamo ai lettori di studiare approfon¬ 
ditamente nel manuale contenuto nella 
confezione la descrizione di tutte le fun¬ 
zionalità del Workbench. C'i si familiarizzi 
soprattutto con le nozioni di sfondo, di 
finestra e di gadget. 

CLI (Command Line Interface) 

! Chi usa solamente il Workbench perde 
j una buona parte della potenza che Amiga 
e capace di sviluppare. Ci sono cose che 
solo direttamente i comandi DOS possono 
fare. A questo scopo il W B contiene una 
Icona che rappresenta un sottoambiente 
capace di trasformare Amiga in una mac¬ 
china convenzionale, in cui i comandi che 
si possono dare sono quelli dell’Amiga- 
DOS, e sono circa mezzo centinaio ( NO¬ 
TA: la versione 1.2 contiene 5 comandi in 
più). I più importanti sono: 

dir per listare il directory corren¬ 

te 

cd per cambiare directory 

endcli per uscire dalla CLI 

AMIGADOS 



È il sistema operativo vero e proprio, cioè 
il programma che si cura di gestire tutte le 
funzioni del computer: elaborazione cen¬ 
trale, memoria interna, memoria esterna, 
video, audio, dispositivi di stampa, ecc. È 
di concezione moderna, e somiglia molto 
ad un sistema operativo «grande» e famo¬ 
so: UNIX. I.a caratteristica più interes¬ 
sante è il sistema di archiviazione dei file 
(file System), organizzato in modo gerar¬ 
chico. 



INTUITION 

A questo modulo è affidata l’interpreta¬ 
zione delle scelte che facciamo quando 
muoviamo il puntatore del mouse sulle 
varie icone e opzioni dei menu, e premia¬ 
mo il bottone. È formato da un insieme 
di programmi in linguaggio macchina che 
permettono al programmatore di sfruttare 


nei suoi programmi tutte le capacità del 
sistema. Per usare Intuilion, occorre saper 
programmare in C c conoscere il diziona¬ 
rio di sistema, ov vero l’elenco dei nomi di 
tutte le routine di Intuition. 

EXEC 

AmigaDOS è un sistema operativo con 
multitasking. Il compito del modulo 
EXEC (che costituisce il contenuto nel 
misterioso disco di Kiekstart) è proprio 
quello per gestire tutte complicazioni che 
derivano dal fatto che il sistema deve oc¬ 
cuparsi dell’esecuzione concorrente di più 
processi (un processo non è altro che un 
programma in esecuzione). Il problema 
principale deriva dal fatto che processi 
differenti possono competere per l’uso de¬ 
gli stessi dispositivi (disk drive, stampan¬ 
te) che però possono servirne uno alla 
volta. Occorre quindi che il sistema ope¬ 
rativo si faccia carico di redimere tutti i 
conflitti che sorgono durante la vita dei 
processi. 

EXEC rappresenta il cuore del sistema 
operativo, ciò che gli informatici chiama¬ 
no il nucleo (in inglese, il kernel ): le sue 
routine vengono usate sia dalla CLI che 
dai programmi di Intuition. Chiaramente 
è uno dei moduli più interessanti ma an¬ 
che più complessi da studiare. 

Lo schema seguente precisa e riassume le 
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WORKBENCH 
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Fig. 3. L’architettura del software di 
base di Amiga 


relazioni intercorrenti tra i vari compo¬ 
nenti del sistema. Si noti il gran numero 
di device (dispositivi): sono programmi 
che gestiscono ciascuno una risorsa privi¬ 
legiata del sistema, cioè per esempio un 
disk drive, la tastiera, la porta stampante, 
ecc. Queste risorse debbono essere atten¬ 
tamente sorvegliate perché se due processi 
se ne impossessassero contemporaneamen¬ 
te potrebbero capitare dei malfunziona¬ 
menti. 

Le librerie 

11 disco Workbench che ci viene consegna¬ 
to all’acquisto di Amiga contiene più di 
cento file. Eppure le icone contenute nella 
schermata di base (comprese quelle nasco¬ 
ste nei cassetti) non superano la ventina. 
Per vedere tutti i file «nascosti», procede¬ 
re così: dal Workbench invocare l’icona 
della CL1 e scrivere il comando 

dir 

Viene mostrato l’elenco completo dei di¬ 
rectory e dei file contenuti nel disco. I no¬ 
mi di molti di questi ultimi finiscono con 
le lettere .info. Spiegheremo più avanti il 
loro significato. 


C 

Contiene tutti i file corrispondenti ai co¬ 
mandi attivabili da CU. Quando scrivia¬ 
mo un comando, l'interprete DOS cerca 
prima nel directory corrente: se non trova 
un file eseguibile corrispondente al nome 
del comando, cerca nel directory c. Si no¬ 
li che la versione 1.2. del WB contiene al¬ 
cuni comandi nuovi, tra i quali citiamo 
add buffer* e lumini. 


/ 

Contiene una serie di funzioni di libreria 
che estendono il DOS. Per esempio, il file 
RAM-Handler controlla il disco RAM (di¬ 
spositivo disco virtuale che utilizza la me¬ 
moria centrale allo scopo di velocizzare le 
operazioni di accesso ai file). 

devs 

Contiene il software di gestione dei vari 
dispositivi che sono usati da Amiga. 
Quando un programma deve usare un di¬ 
spositivo, ad esempio il drive oppure la 
stampante, invoca la routine di sistema 
OpenDevice, che cerca il programma cor¬ 
rispondente in questo directory (se già 
non è stato usato). Si noti che contiene il 
directory printers, con i file di tutte le 
stampanti usabili con Amiga (selezionabili 
mediante lo strumento Preferences del 
WB). La versione 1.2. contiene anche il 
directory keymap, che permette di confi¬ 
gurare la tastiera in formato differente da 
quello standard (a proposito, evitare di 
acquistare un Amiga avente una tastiera 
italiana: richiedete SEMPRE la tastiera 
originale americana, ed eviterete un sacco 
di guai!). 


S 

Viene usato per memorizzare i file-batch, 
che sono sequenze programmate e prefis¬ 
sate di comandi DOS. Quando EXECU- 
TE viene invocato avendo come argomen¬ 
to un certo file, quest’ultimo viene cerca¬ 
to nel directory corrente; se non c’è si cer¬ 
ca in 5. Si noti che inizialmente in questo 
directory si trova un solo file chiamato 
startup-sequance: contiene la sequenza di 
comandi che viene eseguita all’accensione 
del calcolatore, quando viene inserito il 
disco WB. 

fonts 

contiene le definizioni dei vari insiemi di 
caratteri tipografici (chiamati fonti tipo¬ 
grafiche) che Amiga può usare per scrive- 


INTUITION 
Finestre, Menù 
Gadget, Eventi 


re del testo. Quando un programma deve 
usare una nuova fonte tipografica viene 
invocata la routine di sistema Open- 
Fonts, che controlla se la fonte è già pre¬ 
sente in memoria. Se non c’è, vene scan¬ 
dito questo directory alla ricerca della 
fonte. Le fonti di base sono 6, ma recen¬ 
temente molte ditte indipendenti hanno 
prodotto varie decine di fonti originali. 


libs 

Contiene le librerie di estensione del siste¬ 
ma. Funzioni tipiche memorizzate in que¬ 
sto directory sono translator. library, che 
serve per la sintesi vocale di testi, 
diskfont-library, per caricare e scaricare le 
fonti residenti su disco, icon.library e in¬ 
fo, library, per matematica in precisione 
doppia, mai hieeesingbas. library, per la 
matematica in precisione semplice, math- 
trans.library, per le funzioni matematiche 
trascendenti. 


t 

Inizialmente è vuoto. Viene usato da certi 
programmi (come per esempio gli editor 
di sistema) come contenitore di file tem¬ 
poranei. 


Conclusioni 

Amiga è un computer giovane, che senza 
dubbio crescerà nel tempo: vengono an¬ 
nunciati ogni mese nuovi dispositivi hard¬ 
ware (soprattutto estensioni di memoria e 
dischi rigidi) e decine di nuovi program¬ 
mi. A chi ne consigliamo l’acquisto? Per 
ora, finché non verrà completato il parco 
dei programmi commerciali disponibili, lo 
vediamo adatto soprattutto a tre categorie 
di utenti, che lo useranno come: 

□ Elaboratore grafico sofisticato. La 
RAI già usa questo computer come sup¬ 
porto di molte trasmissioni basate su gra¬ 
fica digitale. Le possibilità nel campo 
(chiamato desktop video) sono enormi. 

□ Macchina per giocare; la perfezione 
dei videogiochi di Amiga non ha sin da 
adesso eguali sul mercato. Da notare so¬ 
prattutto la serie Cinemaware della Mind- 
scape (primi titoli: Defender of thè 
Crown, Sinbad, SDÌ, Dejavu, Uninvited), 
che offre un anteprima di ciò che sarà il 
futuro del gioco computerizzato. 

□ Macchina per imparare l’informatica. 
La struttura del sistema operativo è quella 
che si imporrà sempre più nel futuro co¬ 
me quella del nucleo di qualsiasi compu¬ 
ter: ricordiamo lo stretto legame di paren¬ 
tela che esiste tra AmigaDOS e UNIX. La 
valenza didattica di questo elaboratore è 
quindi grossissima. 
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Prolog e Turboprolog 

Come usare il 

TURBOPROLOG 

di Paolo Ciancarini 


Questa è una introduzione alla pro¬ 
grammazione logica in ambiente TURBO¬ 
PROLOG. _ 

Sottolineiamo il prefisso TURBO perché a 
chi una questo prodotto della BORLAND 
sia chiaro che programmare in TURBO¬ 
PROLOG è alquanto diverso dal pro¬ 
grammare in PROLOG. 


□ Un po’ 

di storia... 



Fino al 1986 il Prolog era usato quasi 
esclusivamente nelle università come 
strumento di ricerca nel campo 
deirintelligenza Artificiale. Gli inter¬ 
preti Prolog si trovavano solamente 
su grossi calcolatori. In quell’anno, 
però, la Borland TM annunciò la com¬ 
mercializzazione di un prodotto per PC 
IMB e compatibili chiamato TURBO¬ 
PROLOG TM, al prezzo di 99 dollari. Era 
un nuovo, veloce ed efficiente compilato¬ 
re che schiudeva le porte della program¬ 
mazione logica e, di qui, delflntelligenza 
Artificiale, ai programmatori, sia esperti 
che principianti. . . 
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La differenza si 
riassume in due considerazioni fondamen¬ 
tali: 

1) 11 TURBOPROLOG è molto di più che 
un linguaggio: è un ambiente integrato di 
programmazione estremamente ricco che 
permette di creare con facilità programmi 
efficienti anche molto complessi. 

2) II TURBOPROLOG non è un vero 
Prolog. Anche se ne condivide la filosofia 
generale, la sua sintassi e la sua semantica 
si discostano di molto dallo standard di 
fatto, che è quello stabilito dall’Università 
di Edimburgo. 

11 TL'RBOPROLOG costituisce forse il 
primo esempio economico di ambiente in¬ 
tegrato e flessibile di programmazione, 
che sia implementato su personal compu¬ 
ter IBM (o compatibile) e che sia alla por¬ 
tata dell’utente non esperto. Oggi esiste 
un largo consenso sul fatto che l’ambiente 
di programmazione influenza significati¬ 
vamente la produttività del programmato- 
re, e non solamente sotto l’aspetto quanti¬ 
tativo. Per questo motivo descriveremo 
innanzitutto le potenti funzionalità del si¬ 
stema, invece di addentrarci immediata¬ 
mente nei meandri della programmazione 
logica. 

La seconda considerazione potrà forse 
stupire, ma è profondamente vera. 11 
TURBOPROLOG costituisce un riuscito 
esempio di compromesso tra il paradigma 
tradizionale della programmazione algorit¬ 
mica o procedurale, e quello innovativo e 
affascinante della programmazione logica 
o dichiarativa. 

Come in tutti i compromessi, si rinuncia a 
qualcosa per ottenere qualche altra cosa. 
Nel caso del TURBOPROLOG, la BOR¬ 
LAND ha rinunziato ad implementare la 
piena potenza espressiva del Prolog per 
creare un linguaggio ibrido sostanzialmen¬ 
te simile al Pascal. Questo è certamente 
un fatto positivo per quei lettori che, pro¬ 
venendo da esperienze di programmazione 
procedurale in qualche linguaggio a bloc¬ 
chi, vogliono avvicinarsi al mondo della 
programmazione logica. È d’altro canto 
certamente negativo per chi cercasse di 
trovare nel TURBOPROLOG una imple¬ 
mentazione del Prolog standard. Come è 
noto, uno standard ufficiale del linguag¬ 
gio Prolog non esiste, ma è sufficiente- 
mente diffuso uno standard de facto , 
quello descritto nel libro di Clocksin e 
Mellish « Programming in Prolog », noto 
come C&M Prolog oppure Prolog di 
Edimburgo. 

Come dicevamo, il TURBOPROLOG è 
sostanzialmente un linguaggio nuovo con 
caratteristiche comuni, da una parte, al 
Prolog e, dall’altra, al PASCAL oppure 
al C. 

La caratteristica che più lo differenzia dal 


Prolog puro è il sistema di tipi. Inoltre 
mancano del tutto i predicati di metalivel- 
lo: l’unico presente è il costruttore di in¬ 
sieme findoli. 

Anche l’unificazione è parzialmente limi¬ 
tata. Per esempio, in C&M Prolog il pre¬ 
dicato 


a(X + Y,Z). 
unifica col predicato 

a(7 +5, K). 

legando A' a Y a 5. Come vedremo, in 
TL'RBOPROLOG non è invece permesso 
usare espressioni di questo tipo, né si pos¬ 
sono dichiarare nuovi operatori. È vietato 
persino innestare nel corpo delle clausole 
arbitrariamente più livelli di congiunzioni 
and e or. 

Il TURBOPROLOG segue rigidamente la 
sintassi delle clausole di Horn. La man¬ 
canza più grave è quella dei principali 
predicati di metalivello, che combinata 
con l’introduzione di vincoli sull’unifica¬ 
zione limita alquanto la potenza espressi¬ 
va del linguaggio per ciò che riguarda le 
manipolazioni simboliche. 

Va notato che queste caratteristiche nega¬ 
tive sono frutto di una scelta ben precisa 
da parte dei progettisti del TURBOPRO¬ 
LOG. Le note positive sono che tali vin¬ 
coli fanno si che il TURBOPROLOG sia 
un linguaggio il cui codice compilato è 
estremamente efficiente. Per di più, non 
si è ancora raggiunta la massima ottimiz¬ 
zazione: secondo la Borland la differenza 
di efficienza tra la versione 1.0 e la attua¬ 
le 1.1. raggiunge il 400%: ciò fa sospetta¬ 
re che le prossime versioni saranno ancora 
più veloci. Inoltre, mentre in Prolog nor¬ 
male scrivere programmi più lunghi di 100 
righe diventa un’attività estremamente 
soggetta ad errori, a causa della mancanza 
di struttura intrinseca dei programmi, il 
TURBOPROLOG permette una forma di 
programmazione modulare piuttosto utile 
ed efficace. Esistono infine alcune primiti¬ 
ve grafiche molto potenti che permettono 
di sfruttare le possibilità offerte dallo 
hardware nella costruzione di sofisticati 
sistemi a finestre. Alcuni predicati di in¬ 
terfaccia col DOS e col sistema dei file 
danno al sistema una grande flessibilità 
d’uso persino in applicazioni di sistema 
operativo. È inoltre possibile costruire 
programmi complessi componendo insie¬ 
me parecchi moduli creati separatamente. 
Per di più, i programmi possono essere 
compilati e riversati direttamente su disco 
in modalità .COM oppure .EXE, il che 
permette sia di eseguirli da DOS senza in¬ 
vocare il sistema TURBOPROLOG, sia di 
richiamarli tramite programmi scritti in 
altri linguaggi. 

Una delle caratteristiche più importanti 
che distingue il TURBOPROLOG dalle 


altre implementazioni del Prolog è l’am¬ 
biente di programmazione, e soprattutto 
la sua componente chiamata interfaccia 
utente. Con questa espressione si indica 
quella parte di un sistema software che si 
occupa di gestire l’interazione con il pro¬ 
grammatore e/o l’utente. L’evoluzione 
delle tecniche di ingegneria del software 
sta portando alla progettazione di inter¬ 
facce sempre più evolute, capaci di alleg¬ 
gerire notevolmente le fatiche della pro¬ 
grammazione. Il TURBOPROLOG com¬ 
pie un passo piuttosto deciso in questa di¬ 
rezione, perché mette a disposizione un 
insieme integrato di strumenti allo stesso 
tempo potente e facile da usare. 

Il ciclo di creazione dei programmi, che 
prevede le tre fasi di editing — compila¬ 
zione — esecuzione , è grandemente velo¬ 
cizzato e semplificato grazie alla struttura 
del sistema. In questo capitolo descrivia¬ 
mo le funzionalità più importanti dell’am¬ 
biente TURBOPROLOG. 


□ A cosa serve _ 

l’ambiente 

Un ambiente di programmazione è uno 
strumento che consente al programmatore 
di lavorare comodamente e confortevol¬ 
mente alla costruzione dei suoi program¬ 
mi. Ciò implica che parte dei compiti di 
routine che di solito sono a cura del pro¬ 
grammatore, vengono svolti dal sistema 
più o meno automaticamente. Chi ha pro¬ 
grammato in codice assembler sa quanto 
sia importante poter usare una catena di 
strumenti chiamali assemblatore, linker, 
loader. In questo caso potremmo parlare 
di embrione di ambiente, in quanto tali 
strumenti costituiscono un ausilio alquan¬ 
to rozzo alla programmazione di sistemi 
software complessi. Da questo punto di 
vista, il principale vantaggio di un lin¬ 
guaggio ad alto livello, rispetto alla pro¬ 
grammazione in assembler, è dato dalla 
possibilità di controllare automaticamente 
la forma dei programmi prima di eseguir¬ 
li, grazie ad uno strumento chiamato ana¬ 
lizzatore sintattico. Sono possibili anche 
altri controlli, se l’ambiente fornisce gli 
strumenti adeguati. Praticamente ogni lin¬ 
guaggio moderno offre un ambiente più o 
meno sofisticato. Ad esempio, un inter¬ 
prete BASIC contiene normalmente un 
piccolo editor di schermo, non molto sofi¬ 
sticato ma adatto alla stesura dei pro¬ 
grammi. 

Un ambiente evoluto renderà disponibile 
un numero di strumenti ben maggiore. Gli 
strumenti che compongono un ambiente 

► ►► 
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L’interfaccia 

TURBOPROLOG 

tipico sono i seguenti (ma ne possono esi¬ 
stere molti altri): 

— P editor, che serve per scrivere e visua¬ 
lizzare il programma; 

— Vinterprete, che serve per eseguire di¬ 
rettamente il testo del programma; 

— P analizzatore sintattico, che serve per 
controllare la forma del programma; 

— P analizzatore dei tipi, che effettua al¬ 
cuni controlli semantici sul program¬ 
ma; 

— il debugger, che serve per analizzare il 
significato del programma; 

— il il generatore del codice oggetto, che 
traduce il programma in linguaggio 
macchina; 

— il linker, che permette di comporre 
programmi differenti creando un unico 
programma; 

— il sistema di archiviazione, che serve 
per memorizzare sia i programmi sia i 
documenti che li riguardano. 

Di solito un ambiente Prolog minimale 
per il sistema MS-DOS offre solamente 
l’interprete, il debugger e qualche funzio¬ 
ne di archiviazione su memoria permanen¬ 
te; l’interfaccia col sistema operativo ge¬ 
neralmente è del tutto assente. 11 TURBO¬ 
PROLOG fornisce invece tutto questo in¬ 
sieme di strumenti, integrandoli all’inter¬ 
no di una interfaccia utente estremamente 
amichevole e facile da usare, e per di più 
permette di usare i programmi Prolog in 
combinazione con quelli di altri linguaggi. 


□ Usare _ 

il TurboProlog 

A meno di non voler usare l’unità di me¬ 
moria permanente a disco rigido, non è 
necessaria alcuna operazione preventiva di 
installazione per usare il TURBOPRO¬ 
LOG. 

Inseriti i due dischetti trovati nella confe¬ 
zione nelle relative unità del calcolatore, 
digitare 

A > prolog 

Al termine del caricamento viene mostrata 
una schermata d’apertura contenente il 
messaggio di copyright della Borland, in¬ 
sieme agli assegnamenti iniziali di vari file 
che verranno definiti ed usati dal sistema 
durante la creazione e la eventuale succes¬ 
siva compilazione del programma. Pre¬ 
mendo il tasto «SPAZIO» si entra in am¬ 
biente TURBOPROLOG. Lo schermo è a 
questo punto suddiviso graficamente in 6 
parti. 

È la riga in alto: permette 
di selezionare i comandi 
principali dell’ambiente. Le 
opzioni sono sette; da sini¬ 
stra a destra: Run, Compi¬ 
le, Edit, Options, File, Se¬ 
tup, Quit. Le varie opzioni 
vengono selezionate o bat¬ 
tendo l’iniziale corrispon¬ 
dente, oppure mediante i 
tasti cursore in combina¬ 
zione col tasto «RE¬ 
TURN». 

La finestra grande a sini¬ 
stra: è il sottoambiente che 
permette di creare e modi¬ 
ficare il testo dei program¬ 
mi. Viene attivata dal Me¬ 
nu mediante l’opzione 
Edit. 



Dialog: La finestra grande a destra 

gestisce l’interazione Pro¬ 
log. È il sottoambiente me¬ 
diante il quale si fanno le 
interrogazioni e nel quale 
compaiono i risultati dei 
programmi. Viene attivata 
dal Menu mediante l’op¬ 
zione Run. 

Message^ La finestra in basso a sini- 
WF stra. Qui compaiono i mes- 
1/ saggi del sistema in rispo¬ 
sta alle nostre operazioni 
(ed eventualmente i mes¬ 
saggi di errore, se sbaglia¬ 
mo qualcosa). 

Trace: _ La finestra piccola in basso 

a destra permette di osser¬ 
vare lo svolgersi dell’esecu¬ 
zione di un programma. 

È una riga che contiene un 
riassunto dei comandi prin¬ 
cipali usabili nel sottoam¬ 
biente attivo. 

La funzione delle opzioni e 
dei sottoambienti va com¬ 
presa tenendo presente 
quali sono le principali 
operazioni che compie chi 
crea un programma. Il ci¬ 
clo base di creazione, ese¬ 
cuzione e correzione di un 
programma TURBOPRO¬ 
LOG è il seguente: 

1) Entrare nell'Editor e scrivere il testo 
del programma. 

2) Uscire dall’Editor e salvare il pro¬ 
gramma mediante l’opzione Files del 
Menu. 

3) Compilarlo mediante Compile (se¬ 
conda opzione del Menu). 

4) Eseguirlo, attivando la finestra di 
Dialog tramite l’opzione Run del 
Menu. 

5) Se necessario, correggerlo usando 
l’Editor e ricominciando daccapo il 
ciclo. 

Inizialmente è possibile solamente selezio¬ 
nare una qualsiasi opzione del Menu. Se 
viene attivata una delle quattro finestre 
centrali, il corrispondente sottoambiente 
attivo viene segnalato dal cambiamento 
della luminosità della sua cornice. Va su¬ 
bito ricordato un tasto molto utile per 
uscire da qualsiasi sottoambiente e torna¬ 
re al Menu: è quello di «ESCAPE». 





Nel prossimo numero descriveremo 
dettagliatamente i vari sottoambienti 
con i comandi relativi. 
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Quello che non dicono i manuali e quello 
che nei manuali è sbagliato 


Rubrica aperta anche alla collaborazione dei lettori 


notevole aumento del Valore assoluto memorizzabile 


OLIVETTI PRODEST PC 128 S 
...dentro la memoria 

na delle operazioni senz’altro più divertenti, quan¬ 
do si ha tra le mani un nuovo computer, è quella 
di andare a ficcanasare direttamente nella memo¬ 
ria della nostra macchina, magari per vedere come vengo¬ 
no memorizzati i programmi o le variabili, come viene ge¬ 
stito il display file, ecc. Per far ciò, però, bisogna cono¬ 
scere due importanti parole del BASIC: una è il comando 
POKE, con il quale si scrive nella memoria, e l’altra è una 
funzione, PEEK, con la quale si legge una locazione. Molti 
dialetti BASIC usano una sintassi del tipo: 

POKE Locazione, Valore 

per alterare il valore della Locazione memorizzandoci il 
Valore; per la funzione invece: 

PRINT PEEK (Locazione) oppure PRINT PEEK Locazione 

per leggere il contenuto della Locazione. 

Chi era già a conoscenza di ciò sarà rimasto deluso quan¬ 
do, sedutosi davanti al proprio PC 128 S con spirito più 
da pioniere che da programmatore, si è accorto che il ma¬ 
nuale in dotazione non riporta comandi né sintassi delle 
citate «parole». In realtà il BASIC BBC usa un modo un 
po’ particolare per gestire le operazioni sulla memoria. 

La prima operazione che prenderemo in considerazione è 
la modifica del valore di una cella di memoria. Ciò viene 
fatto con i seguenti operatori: 

?Locazione = Valore 0<Valore<255 
! Locazione = Valore 0< Valore < 4294967295 

{Locazione = Stringa 

Il primo operatore *?’ permette la modifica della Locazio¬ 
ne nella quale viene memorizzato il Valore a otto bit. Il se¬ 
condo opera in modo analogo, con la semplice differenza 
che il valore può essere a trentadue bit. In poche parole, 
se *?’ altera una sola locazione, *!’ ne altera quattro, con 


Per esempio: 

74000 = 255 POKa in 4000 il valore a otto bit 255 
14000 = 65535 POKa da 4000 a 4003 il valore 65535, con¬ 
servando in 4001 il byte di ordine più eleva¬ 
to. 

Per chi non lo ricordasse un Inteqer o valore intero a più 
di otto bit è sempre suddivisibile in più valori a otto bit . 

Così il valore 50000 può essere scritto come 

50000 = 80 + 256*195 

Ebbene, il byte di ordine più elevato, in questo caso, è 
195. La formula generale per dividere un Numero a sedici 
bit in due da otto è: 

Low = Numero MOD 256 
High = Numero DIV 256 

L’operatore $ è quello senza dubbio più interessante, in 
quanto permette il diretto inserimento di una stringa in 
memoria. Così l’espressione: 

$4000 = “Evviva List!” 

memorizza a partire dalla locazione 4000 la stringa “Evvi¬ 
va List!”, ponendo automaticamente alla fine della strin¬ 
ga il codice 13 (fine stringa). Notate che oltre alla normale 
sintassi del tipo: 

?(Locazione + Step) = Valore 

dove Step è un valore che cambia rispetto agli altri (per 
es. in un ciclo di FOR), si può usare una espressione del 
tipo: 

Locazione?Step = Valore 

dove però la Locazione deve essere espressa per mezzo di 
una variabile. Per esempio: 

INDIRIZZO = 300 
INDIRIZZO710 = 200 

significa che nella Locazione 300+ 10 deve essere memo¬ 
rizzato 200. 

analogo discorso vale per l’operatore T, mentre ‘$’ non 
permette questo particolare tipo di gestione. 

Il modo per leggere una locazione ha una forma analoga 
al modo per scriverci dentro: infatti: 

PRINT 7LOCAZIONE 
PRINT {LOCAZIONE 
PRINT {LOCAZIONE 

sono i tre modi di leggere un indirizzo permessi dal BASIC 
BBC. Ovviamente la prima espressione legge un valore a 
otto bit, la seconda uno a trentadue e la terza una stringa 

► ►► 
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di lunghezza indefinita, fino a che l’operatore non incon¬ 
tra un codice 13. Vi ricordiamo che in questo modo gli 
operatori diventano delle funzioni e pertanto godono di 
tutte le proprietà di queste ultime. Così, se battete: 

$4000 = “ho capito tutto!” 

e poi: 

PRINT $4000 

otterrete: 

ho capito tutto! 

Forme accettate sono anche: 

PRINT Locazione?Step 
PRINT LocazioneiStep 

dove Locazione è espressa tramite variabile BASIC (vedi 
prima). 

Facile, no? Per concludere questo breve, ma utile artico- 
letto vi facciamo notare che il PC 128 S può manipolare 
numeri anche in formato esadecimale. Questo è scritto 
sul manuale e non c’è ancora molto da dire. Per esempio, 
se battiamo: 


PRINT &FFFF;“ ”;&FF;“ ”;&BC 

otteniamo: 

65535 255 188 

Ciò che non c’è scritto (o forse non ce ne siamo accorti) è 
come convertire un numero decimale in esadecimale. An¬ 
che in questo caso si usa un operatore, ed esattamente 
quello che sta sopra al simbolo di elevamento a potenza 
(ci scusiamo per non poterlo disegnare per motivi di stam¬ 
pa). Comunque, se non l’avete ancora trovato, è il simbolo 
a destra del simbolo di uguaglianza. Esso va usato alla 
stessa stregua del simbolo &, cioè davanti al numero de¬ 
cimale da convertire in esadecimale. 

Termina qui questa breve carrellata su alcuni aspetti na¬ 
scosti del PC 128 S. Vi assicuriamo comunque che c’è an¬ 
cora molto da scoprire! Animo, dunque, e riacqistate quel¬ 
lo spirito pionieristico a cui abbiamo accennato. Siamo 
ansiosi di vedere la redazione sommersa da vostre sco¬ 
perte, vostri trucchi e trucchetti, i ■quali troveranno senza 
dubbio un posto sicuro tra le pagine della Vostra rivista. 


RICEVIAMO E PUBBLICHIAMO ... 

Più veloce la scrittura 
in «inverse» 

Riceviamo da un lettore di Ancona, il sig Walter Merli due 
routine interessanti a proposito di un listato già apparso 
su LIST di aprile, nella rubrica ”Di tutto un po’”, a pag. 58. 
Tale routine permetteva la scrittura in Inverse. Le routine 
inviate dal nostro lettore eseguono la medesima funzione, 
solo che “lo fanno più rapidamente, sfruttando un sotto¬ 
programma in linguaggio macchina”. 


Routine 1 


100 SCREEN 1 :CLS:KEYOFF 
1 1 0 G0SUB280 

1 20 I NF'UT" COLORE SCRI TURA , SFONDO , BORDO" 

; SC:, SF , BO 

I25 COLORSO,SF BO 

130 A4="PROVA SCRITTURA INVERSE" 

1 40 L=PEEK ( VARF'TR < A4 ) > 

1 50 I ND=PEEK C VARF'TR f A4 ) + 2 > *256+PEEK C VAR 
PTRC A4 } + l ) 

160 G0SUB240 

170 B4"riprova scrittura inverse” 

1 80 L=F‘EEK C VARPTR C B4 > ) 

1 90 I ND=PK C VARPTR C B4 > +2 > *256+F‘EEK ( VARF'T 
RCB4>+1) 

200 G0SUB240 
210 PRINT A4 
220 PRINTB4 
230 END 
240 FQRK=0T0L 

245 A=PEEKCIND+K)+96 : IFA-126>0THEN270 
250 POKECIND+K),A 
260 NEXTK 
270 RETURN 

280 IF F'EEK C &HFCAF ) =OTHEN I-204SELSEI =0 

290 F0RK=32*8T0127*8 

300 VPOKEC T+K+96*8>,255-VPEEKCI+K ) 

310 NEXTK 
320 RETURN 


Alla riga 110 si va alla subroutine 280 che crea un alfabe 
to in Inverse: tutti i caratteri dal 32 al 126 vengono memo¬ 
rizzati in Inverse a partire dal carattere 127 in poi. 

Alla riga 140 viene richiamata dalla VLT la lunghezza della 
stringa da convertire. 

Alla riga 150 viene memorizzato in IND l’indirizzo di me¬ 
morizzazione della stringa. 

Così anche alle righe 180 + 190. 

Viene poi richiamata la subroutine 240 che provvede a so¬ 
stituire ogni carattere della stringa con il corrispondente 
carattere in inverse. 

Routine 2 

Il funzionamento è lo stesso della routine 1 solo che le 
subroutine 280 e 240, gli indirizzi della VLT, sono gestiti 
da L/M. 


100 CLEAR200,&HEA5F 
1 IO Al=&HEA60:DEFUSR=A! 

120 FORI=0T076 

130 RE ADE: : POKEA ! +1 , E: 

140 NEXTI 

150 DEFUSR1«&HEA92 
160 SCREEN1 :CLS!KEYOFF' 

170 U=USRC 0) 

1 80 I NF’UT " COLORE SCR IT TUR A , SFQND9Ò ■ ù j où 
dgjhùSF,BO 

1 90 A4LINE"Ai:»uÌCTuir-oooiÌCr-siuMiTM" : U4= 
USRICA*) 

195 COLORSC,SF,BO 
200 LOCATE,12:PRINTA4 

210 B4="riprova scrittura inverse"!U$=U 
SR1 <: E:4 :> 

220 PRINTB4 
230 END 

1000 DATA58,175,252,254,2,202,202,71,25 
4,1,202,115,234,33,0,9,195,118,234 
1010 DATA33,0,1,1,0,3,17,0,3,205,74,0,2 
13,95,62,255,147,209,25,205,77,0 
1020 DATA237,82,35,11,120,177,32,235,20 
1,254,3,194,202,71,235,126,254,0 
1030 DATA 200,71,35,94,35,86,26,198,96, 
254,127,56,4,18,19,16,245,201 
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di R. Feltoni 


C-64 

+ Disk Drive 1571 


ATTENTI ALLA TESTINA 


C-128 


TEST MODO 64/128 


Quando caricate del software di tipo commerciale, 
che dovreste aver regolarmente acquistato presso 
qualche rivenditore autorizzato e non presso qual¬ 
che vostro amico copiatore, il drive 1541 spesso 
emette un rumore forte e fastidioso. 

Questo tipo di inconveniente è causato dalla prote¬ 
zione anti-copia installata dall’autore. 

A lungo andare, tale inconveniente può causare il 
disallineamento della testina di lettura/scrittura del 
vostro drive 1571. 

Se provate a digitare, in modo diretto, la seguente 
linea di istruzioni prima di caricare il software, il pe¬ 
ricolo di disallineamento dovrebbe essere scongiu¬ 
rato. 

Questo «trucchetto» funziona nel 90% dei casi, ma 
nel malaugurato caso che non funzionasse esso 
non interferisce in alcun modo sul corretto carica¬ 
mento e funzionamento del programma. 

1 OPEN1,8,15:PRINT # 1M-W”C H A$(1 06)C H A$ 
(0)C H A$(1 )C H R$( 13):C LOS E1 


La seguente istruzione permette all’utente di cono¬ 
scere se il programma attivo sul proprio computer 
funziona in modo 128 o 64. 

La conoscenza di tale informazione è possibile gra¬ 
zie ad un trucchetto: le istruzioni FRE(O) e FRE(1) 
nel modo 64 restituiscono due valori distinti che 
rappresentano rispettivamente la quantità di bytes 
liberi per il programma e per le variabili. 

Dopo l’esecuzione di tale istruzione, la variabile M 
conterrà il valore 128 o il valore 64 a seconda del 
modo nel quale state lavorando. 

100 M = 128:IF FRE(0) = FRE(1) THEN M = 64 



C-64 

-l- Disk Drive 1571 


FILES UTILITY 


Questa routine può essere usata, sul vostro C64 per 
controllare se un determinato file è presente sul di¬ 
sco e per verificare se un floppy è dotato di prote¬ 
zione contro la scrittura (WRITE PROTECTION). 

È infatti ottima consuetudine, prima di manipolare 
dei files fare dei controlli molto accurati. 

Se il file che state cercando sul vostro floppy non 
esiste, la linea 130 genererà un errore il cui numero 
di codice è 62: tale errore equivale al messaggio «FI¬ 
LE NOT FOUND» che vi informa sul fatto che il file 
che state ricercando non è presente su quel disco. 
Se non vi serve fare controlli sulla WRITE- 
PROTECTION, sostituite nel primo statement OPEN 
la lettera A con la lettera R. 


100 REM *S*«<H«»**M«S* 

101 REM ■»" FILE UTILITY * 

10.£ RFM ^ «vv8tt» 

105 INPUT "Nome dei file da cercare ” ; f $ 

110 OPEN 2,8,2,F $ *”,P,A":C L OS E 2 

120 0PEN1S.6, 1S:INPUT#15,A,B$:CL0SE 1 S 

130 1FA>1THENPRINTA,0$: END 

140 PRINT"* IL FILE E' SUL DISCO * " 


Uno dei difetti principali del pur valido C-64 è quello 
di non avere a disposizione il tasto di reset attraver¬ 
so il quale è possibile riportare il vostro computer 
allo stato iniziale. 

Per ovviare a tale inconveniente basterà includere 
nella vostra biblioteca software questa semplice uti¬ 
lity, che una volta «lanciata» trasformerà il tasto RE- 
STORE del vostro C-64 in un efficientissimo tasto di 
RESET. 

10 FORA = 4070T040706:READB:POKEA,B:NEXT:FORA = 
32770TO32776:READB:POKETA,B:NEXT:NEW 
20 DATA 32,248,252,0,159,195,194,205,56,48 


C-128 


INPUT PROMPT DEL VOSTRO C128 


Per eliminare il punto interrogativo dall’istruzione di 
input digitate: 

POKE 21,64 

Subito dopo lo statement di input digitate 

POKE 21,0 

per riportare il sistema alla normalità. 
ATTENZIONE: se non digitate l’istruzione contenen¬ 
te il secondo POKE il vostro computer non funzione¬ 
rà a dovere. 
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MSX 

ISTRUZIONI... 

AL MICROSCOPIO 

IL COMANDO RENUM NEGLI MSX 




essuno ne parla mai perché pare un comando 
scontato e senza grosso peso specifico ai fini di 
un qualsiasi listato, che, alle volte, invece, posso¬ 
no letteralmente salvare il contenuto di un programma in 
specie se questo viene digitato senza un relativo flow- 
chart che ne codifichi almeno sommariamente inizio e fi¬ 


ne. 

Cosicché, alla conclusione di questa pagina, sarete sor¬ 
presi delle capacità del vostro RENUM e il vostro baga¬ 
glio di programmatore ne trarrà giovamento, non contan¬ 
do che un piccolo segreto condirà il finale dell’articolo. . 


Come vedete è una variazione utilissima per lasciare inva¬ 
riata la numerazione di una prima parte del listato, rinu¬ 
merandone a piacere la seconda, 
ancora con RENUM „8 avremo: 

10 REM A 
18 REM B 
20 REM C 
34 GOTO 18 

Da notare come le virgole rimpiazzino la sintassi del vec¬ 
chio numero di riga. 


A cosa serve 

Il comando RENUM serve a rinumerare le linee di pro¬ 
gramma, ma non solo dalla prima riga e neanche solo al 
passo di dieci. 

La sintassi 

RENUM nuovo numero riga, vecchio numero riga, incre¬ 
mento, dove: 

NUOVO NUMERO DI RIGA = al primo numero di linea 
che dovrà essere usato nella sequenza (per default 10) 
VECCHIO NUMERO DI RIGA = alla linea da cui dovrà par¬ 
tire la rinumerazione (per default la prima) 

INCREMENTO = al passo numerico di ogni linea (per de¬ 
fault 10) 

Esempi pratici 

Poniamo a base degli esempi uno pseudo-listato di par¬ 
tenza e vediamo come reagisce ai vari RENUM. 

10 REM A 
20 REM B 
30 REM C 
40 GOTO 20 

Quindi diamo il RENUM 40 e avremo: 

40 REM A 
50 REM B 
60 REM C 
70 GOTO 50 

Da notare come il GOTO di linea 70 si riporti sempre al 
secondo numero di linea. 

Ancora al list di partenza diamo il RENUM 52,,1 e avremo: 

52 REM A 

53 REM B 

54 REM C 

55 GOTO 53 

Con il RENUM 80,30,5 avremo invece: 

10 REM A 
20 REM B 
80 REM C 
85 GOTO 20 


Il RENUM nel listato ! 

Non l’avevo accennato prima per ottenere un effetto sor¬ 
presa, poiché certamente molti di voi non sanno che il 
RENUM è anche una particolare istruzione. 

Così, ora, provate a digitare questo list: 

10 REM A 
20 REMB 
30 RENUM 40 
40 GOTO 20 

Quindi date il RUN e avrete un OK dal computer, allora di¬ 
gitate LIST e apparirà: 

40 REM A 
50 REM B 
60 RENUM 70 
70 GOTO 50 

Sorpresi, vero? Ebbene, sì, il RENUM rinumera anche sé 
stesso, portandosi in questo caso alla quota in cifre 
dell’ultimo numero di linea rinumerato. 

Ma non è finita, e mantenendo fisso l’ultimo list d’esem¬ 
pio, digitiamo ancora il RUN, aspettiamo l’OK e richiedia¬ 
mo nuovamente il LIST. 

In questo modo avremo: 

70 REM A 
80 REM B 
90 RENUM 100 
100 GOTO 80 

Come vedete l’azione del RENUM continua e si ripeterà 
ad ogni RUN. 

Naturalmente qualsiasi variante RENUM già vista nei pre¬ 
cedenti esempi potrà essere inclusa anche in questo tipo 
di listati, consentendo al programmatore esperto di strut¬ 
turarsi adeguatamente e senza perdite di tempo un listato 
con rinumerazione ad hoc. 

Non avevo ragione nel dire che avremmo imparato qualco¬ 
sa di utile? 

Sfruttare al meglio un computer vuol dire conoscerlo a 
fondo, anche nei più remoti particolari e LIST è qui per 
questo. 

O. Contenti 
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SPECTRUM 


Come usare alcune interessanti routines della ROM 


er programmare in Linguaggio Macchina (per gli 
amici L/M) occorre conoscere il Linguaggio Mac¬ 
china e su questo c’è poco da discutere. Sem¬ 
bra anche abbastanza ovvio che per scrivere programmi 
interessanti non solo bisogna conoscere il linguaggio in 
questione, ma occorre conoscerlo anche molto bene. Pre¬ 
cisiamo che ancora ciò non basta. Per scrivere programmi 
di un certo livello è pressoché indispensabile conoscere 
ANCHE la propria macchina. Le ragioni di ciò sono molto 
chiare: se si vuole scrivere un programma grafico in L/M 
occorrerà usare alcune routines che disegnano cerchi, li¬ 
nee e punti. Perché allora riscriverle daccapo se queste 
sono tranquillamente residenti nella ROM? Ancora: siamo 
interessati alla stesura di uno studio di funzione in L/M: 
qui, oltre alle routines grafiche, bisogna lavorare con fun¬ 
zioni, con numeri, quasi sempre del tipo «rognoso numero 
a virgola mobile». Chi sarebbe masochista al punto di ri¬ 
creare l’intera gestione dei numeri in Floating Point, con¬ 
siderando il fatto che detta gestione esiste già immortala¬ 
ta sulla ROM? Per questi motivi ci sembra a dir poco do¬ 
veroso andare a ficcanasare nella ROM per riuscire ad 
identificare e a comprendere il funzionamento di alcune 
subroutines, specialmente quelle relative alla grafica: con 
il valido aiuto di una buona documentazione e sorretti da 
ferrea volontà siamo riusciti a isolare alcuni indirizzi mol¬ 
to interessanti. Per una facile e rapida consultazione, use¬ 
remo il seguente metodo espositivo: 

1) Nome simbolico della routine e suo indirizzo decimale 
ed esadecimale. 

2) Descrizione del suo funzionamento. 

3) Qualche esempio (in ASSEMBLER e codici decimali; 
questi ultimi possono essere direttamente inseriti a parti¬ 
re da un indirizzo qualsiasi e chiamati con una regolare 
USR alla locazione di partenza scelta). 



CHANOPEN 5633 dee. 1601 esa. 


Questa subroutine apre il canale il cui numero è contenu¬ 
to nell’accumulatore. I canali più interessanti sono il vi¬ 
deo, con il codice 2 e la stampante, con codice 3. Si noti 
che durante l’esecuzione di un programma prima aprire il 
canale 2 e poi inviare i caratteri da stampare. In altre pa¬ 
role, il video va trattato alla stessa stregua degli altri ca¬ 
nali e quindi va attivato con una regolare chiamata. 


ES. 

62, ‘2’ LD A,2 

205,1,23 CALL 5633 
201 RET 


codice del canale video 
apri il canale specificato 
ritorna al sistema 


(N.B. - Il 2 tra gli apici indica che tale valore non è in codi¬ 
ce L/M ma un dato che può essere cambiato). 

A scopo chiarificatore indichiamo come vanno usati i co¬ 
dici decimali. Scegliamo come locazione di partenza, ad 
esempio, l’indirizzo 50000. allora in tale indirizzo memoriz¬ 
zeremo con delle POKEs o con un programma specifico 
(come il nostro HEX LOADER pubblicato ad APRILE) il co¬ 
dice 62. Nella locazione seguente, in questo caso in 
50001, il codice 2, passibile di modifica, ecc. Per eseguire 
il programma basta digitare RANDOMIZE USR 50000. 


PLOT 8927 dee. 22DF esa. 


Setta a 1 il PIXEL le cui coordinate sono contenute nei re¬ 
gistri B e C. Le ascisse, cioè X, sono conservate nel regi¬ 
stro C mentre le coordinate, Y, in B. 


ES. 

14,‘100’ LD C,100 

6,‘110’ LDB.110 

205,223,34 CALL 8927 

201 RET 


C contiene X 
B contiene Y 
PLOT X,Y 
finito 


DRAW 9402 DEC. 24BA esa. 

Traccia una linea dall’ultimo punto disegnato con le stes¬ 
se modalità del comando BASIC DRAW. C contiene il nu¬ 
mero di PIXELs lungo le ordinate mentre B secondo le 
ascisse. Inoltre i registri E e D devono contenere, rispetti¬ 
vamente, il segno di C e B: 1 significa positivo, 255 nega¬ 
tivo. Il valore positivo o negativo assume lo stesso signifi¬ 
cato della direzione di tracciamento del BASIC. 


ES. 


6,‘110’ 

LD C,110 

14,‘100' 

LD B,100 

22,‘1’ 

LD E,1 

30,T 

LD D,1 

205,186,36 

CALL 9402 

217 

EXX 

33,88,39 

LD HL, 10072 

217 

EXX 


201 RET 


C = ABS X 
B = ABS Y 
E = SGN X 
D = SGN Y 

DRAW X,Y considerando il 
segno 

questa sequenza di istruzio¬ 
ni serve per 

ridefinire un certo indirizzo 
conservato 

nel set alternativo in HL. 
Ciò viene fatto per evitare 
dei ritorni poco simpatici al 
sistema 
finito 


CIRCLE 9005 dee. 232D esa. 

Equivale alla istruzione BASIC CIRCLE. I parametri 
dell’istruzione devono essere conservati nello Stack del 
calcolatore, cioè una speciale zona di memoria dove ven¬ 
gono memorizzati e manipolati i numeri in Floating Point. 
La memorizzazione di un numero in tale spazio viene ef¬ 
fettuata da una particolare routine (guarda caso della 
ROM!) all’indirizzo 11560. Essa viene chiamata STACK—A 
ed ha il compito di posizionare in cima allo Stack del Cal¬ 
colatore il valore conservato in A. 


ES. 

62/100’ 

LD A,100 

205,40,45 

CALL 11560 

62/100’ 

LD A,100 

205,40,45 

CALL 11560 

62/40’ 

LD A,40 

205,40,45 

CALL 11560 

205,45,35 

217 

CALL 9005 
EXX 

33,88,39 

217 

201 

LD HL, 10072 
EXX 

RET 


carica A, in sequenza, con 

100 , 100 

e 40, che rappresentano X,Y 
e Radius 

Memorizza i valori sullo 
Stack del 

Calcolatore chiamato 
STACK—A al- 

: l’indirizzo 11560. Attenzio¬ 
ne alla se¬ 
quenza di salvataggio dei 
dati: prima X, poi Y e quindi 
il raggio 

CIRCLE X,Y,Radius 

come per DRAW, ripristina 

un certo valore 

‘un felice ritorno’ al BASIC 

ritorna al BASIC 


Termina qui questa breve ma interessante (e soprattutto 
utile) trattazione di alcune ROM-subroutines. Siamo Sicuri 
che molti dei nostri affezionati lettori sincleristi stanno 
già facendo lavorare il loro cervello al massimo program¬ 
ma in BASIC in un suo «fratello» in L/M. Noi di LIST sia¬ 
mo molto curiosi di conoscere il frutto del nostro ma so¬ 
prattutto del vostro lavoro personale. Rinnoviamo quindi 
l’invito all’invio di programmi originali ed interessanti ela¬ 
borati magari alla luce di queste nuove conoscenze. 
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D ’argomento di questo numero tratta un indispen¬ 
sabile accessorio del computer, sulla gestione del 
quale il manuale è piuttosto avaro di particolari: il 

joystick. 

■ Come è noto, il joystick, è essenzialmente costituito 
da 5 interruttori, 4 dei quali controllati dalla posizione del¬ 
la leva (alto, basso, destra, sinistra) ed uno dal pulsante 
di fuoco. 

Ciascuna di queste posizioni attiva separatamente uno ed 
un solo interruttore: sono tuttavia possibili situazioni più 
complesse, quali le posizioni intermedie della leva (ad 
esempio tra alto e destra, tra basso e sinistra, ecc.) che 
attivano 2 interruttori contemporaneamente; se, insieme 
allo spostamento della leva, viene premuto anche il pul¬ 
sante di fuoco, possono risultare attivati fino a 3 interrut¬ 
tori nello stesso momento. 

Il computer deve essere in grado di «riconoscere» tutte 
queste combinazioni in modo da poter scegliere, secondo 
le istruzioni del programma, l’idonea procedura da segui¬ 
re. 


■ Nel BBC BASIC le informazioni sullo «status» del joy¬ 
stick (cioè il riconoscimento di quali interruttori sono, ad 
un certo istante, chiusi o aperti) risiedono nelle funzioni 
ADVAL(0), ADVAL(I) e ADVAL(2) che assumono valori nu¬ 
merici diversi in funzione dello status stesso: tali cifre 
possono essere visualizzate mediante l’istruzione “PRINT 
ADVAL(O), DVAL(1), ADVAL(2)”. 


■ Le funzioni ADVAL(I) e ADVAL (2) assumono valori 
numerici variabili da 0 a 65535: muovendo la leva del joy¬ 
stick verso sinistra, ADVAL(I) cresce fino a raggiungere 
65535; ulteriori successivi spostamenti nella stessa dire¬ 
zione non provocano modifiche di tale valore. Muovendo 
la leva verso destra ADVAL(I) decresce fino a stabilirsi su 
zero. Analogo comportamento presenta la funzione AD- 
VAL(2) nei riguardi degli spostamenti in senso verticale: 
muovendo la leva verso l’alto ADVAL(2) cresce mentre ver¬ 
so il basso diminuisce fino agli stessi valori limite. 
Quanto esposto può essere facilmente verificato median¬ 
te le seguenti righe di programma: 

^10 MODE 128 

20 PRINT ADVAL(1),ADVAL(2):GOTO 20 

che visualizzano due colonne di numeri corrispondenti, ri¬ 
spettivamente, ai valori delle due funzioni; muovendo il 
joystick se ne possono agevolmente constatare le varia¬ 
zioni. 

■ La funzione ADVAL(O) è molto più complessa poiché 
in essa risiede l'effettivo controllo dello status del joy¬ 
stick: Battete, ad esempio, il seguente programma: 

-10 MODE 128 
20 PRINT ADVAL(0):GOTO 20 

Osserverete, qualunque sia la posizione del joystick, una 
colonna di numeri in una tale continua e rapida modifica 
da renderne impossibile la lettura; la situazione migliora 
notevolmente inserendo un punto e virgola nella riga 20: 

20 PRINT ADVAL(0);:GOTO 20 

Le cifre sono ora visualizzate in righe di 10 per volta ed è 
possibile leggerne il valore. Tentate una sistematica anali¬ 
si dei valori della funzione muovendo la leva del joystick 
in tutte le direzioni e premendo alternativamente il pulsan¬ 
te di fuoco: constaterete che le cifre visualizzate, pur es¬ 
sendo variabili, non subiscono il costante incremento o 
decremento presentato da ADVAL(I) e ADVAL(2) e che, a 
parità di posizione della leva e del pulsante di fuoco, i nu¬ 
meri sono sempre i medesimi. Confrontate i numeri letti 
con la seguente tabella: 


VALORE DI ADVAL(O) CON PULSANTE DI FUOCO 
Posizione di leva Rilasciato Premuto 


Centro 

256-512 

257-513 

Sinistra 

272-528 

273-529 

Basso 

288-544 

289-545 

Basso-sinistra 

304-560 

305-561 

Alto 

320-576 

321-577 

Alto-sinistra 

336-592 

337-593 

Destra 

384-640 

385-641 

Basso-destra 

416-672 

417-673 

Alto-destra 

448-704 

449-745 


Analizzando le cifre riportate nella tabella, si possono 
trarre alcune interessanti conclusioni: 

1. - Ad ogni posizione della leva corrisponde una coppia 
di numeri la cui differenza è costantemente pari a 256; la 
coppia di valori più bassi corrisponde alla posizione cen¬ 
trale della leva (nessun interruttore chiuso). 

2. - Fino alla posizione n. 6, la differenza tra termini omo¬ 
loghi di due coppie successive è pari a 16; la differenza 
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dei valori tra la posizione 6 e 7 è 48, mentre sia tra 7 e 8 
che tra 8 e 9 è pari a 32. 

3. - La pressione del pulsante fuoco provoca l'incremento 
di una unità di tutti i valori assunti dalla funzione 
ADVAL(O); è interessante notare che, al di là del puro in¬ 
cremento numerico, il pulsante di fuoco rende dispari tutti 
i valori della funzione. 

Da questa analisi possono essere tratte alcune conclusio¬ 
ni molto utili in fase di programmazione: 

1. - Poiché la differenza tra i termini di una coppia è co¬ 
stante, non è necessario tener conto di entrambi i numeri; 
è sufficiente assegnare la funzione ADVAL(O) ad una qual¬ 
siasi variabile, controllarne il valore e sottrarre 256 se es¬ 
so supera il numero 448: si ottiene in tal modo una varia¬ 
bile in cui è sempre contenuto il termine minore della 
coppia. 

>....;Z = ADVAL(0):IF Z>448 THEN Z = Z—256 

2. - Tutti i valori ADVAL(O) (quando il pulsante di fuoco è 
rilasciato) sono divisibili per 16; pertanto, dividendo la 
funzione per 16 e sottraendo 15, si ottengono dei numeri 
interi, di piccolo valore, a partire dal n. 1 corrispondente 
quest’ultimo alla posizione di riposo del joystick 
(ADVAL(O) = 256 — 256/16-15 = 1). Il calcolo può essere 
eseguito contemporaneamente al controllo descritto al 
precedente punto 1, risparmiando così una riga di pro¬ 
gramma: 

>....:Z = ADVAL(0):IF Z>448 THEN Z = (Z-256)/16-15 ELSE 
Z = Z/16-15 

I valori di Z così ottenuti possono essere agevolmente uti¬ 
lizzati in una istruzione ON Z PROC.... oppure ON Z GO- 
SUB.... 

3. - Il controllo della pressione del pulsante di fuoco può 
essere facilmente ottenuto verificando se il valore di AD- 
VAL(O) è pari (INT(Z/2) = Z/2) o dispariiNT(Z/2< >Z/2). 

■ Le considerazioni sopra esposte sono state utilizzate 
per il piccolo programma che segue, il quale gestisce il 
movimento di una pallina sullo schermo mediante il joy¬ 
stick; sono inoltre visualizzate, nell’ultima riga, le coordi¬ 
nate istantanee della pallina, il valore della funzione AD- 
VAL(O) e quello della variabile Z che indirizza le procedure 
in base alla posizione della leva del joystck. 

■ Molte istruzioni hanno una funzione puramente «de¬ 
corativa», ma quelle che interessano il movimento posso¬ 
no essere così riassunte: 

— alla R.40 viene inserito il valore istantaneo di 
ADVAL(O) nella variante Z e viene controllato se quest’ulti- 
ma è pari o dispari: nel primo caso il programma prose¬ 
gue, altrimenti è attivata la procedura di «sparo» che dise¬ 
gna cechi concentrici intorno alla pallina. 

— la R.50 si incarica di controllare il valore di Z e di ri¬ 
durlo a multipli di 1. 

— alla R.70 viene scelta la procedura da seguire in rela¬ 
zione al valore di Z e, quindi, alla posizione della leva del 
joystick. 

— le procedure da R.90 a R.280 si incaricano di incre¬ 
mentare o decrementare opportunamente le coordinate di 
stampa della pallina in relazione alla direzione scelta con 
il joystick; la PROC A (R.290) esegue un ciclo a vuoto e 
viene utilizzata sia quando la leva è in posizione centrale 


10REM*** JOY DEMO *** 

20MODE129:VDU23; 8202; 0; 0; 0; 23,250,60, 
126,126,255,255,126,126,60:X=19:Y=15 

30PRINTTAB(0,30)" 

": FRINT TAB(0,30)"X = "; X;" 
Y=";Y: FRINT TAB(X,Y>CHR*250:SOUND1,-10 
,X*6,1 :SQUND2,-10,Y*9,1 

40Z=ADVAL(0):PRINT TAB<15,30);Z:IF IN 
F(Z/2)OZ/2 PROCsparo: COLOURRND (3) : GOTO 
30 

501F Z >450 Z=(Z—256)/16-15 ELSE Z = Z/1 
6-15 

60PRINT TAB(30,30);Z:PRINT TAB(X,Y)CH 
R*32 

70ON Z PROCA, F'R'OCsi ni stra , F'ROCbasso , P 
ROCbasso__si ni stra, PROCal to , PROCal to_si ni 
stra,PROCA,PROCA,PROCdestra,PROCA,PROCba 
sso_destra,PROCA,PROCalto_destra 

S0GOTO30 

90DEFPRQCsinistra:X = X-1 :IF X<0 X=0 
100ENDPROC 

110DEFPROCdestra:X=X+1:IF X>39 X=39 
120ENDPROC 

130DEFPROCaIto:Y=Y—1 :IF Y<0 Y=0 
140ENDPROC 

150DEFPROCbasso:Y=Y+1:IF Y>28 Y=28 
160ENDPROC 

170DEFPROCalto_destra:X=X+1:IF X>39 X= 
39:GOTO 190 

180Y=Y—1:IF Y<0 Y=0:X=X-1 
190ENDPROC 

200DEFPRQCalto_sinistra:X=X—1:IF X<0 X 
=0: GOTO 220 

210Y=Y-1 :IF Y<0 Y=0:X=X+1 
220ENDPROC 

230DEFPROCba.sso_destra: X=X+1 : IF X>39 X 
=39:GOTO 250 

240Y=Y+1:IF Y>28 Y=28:X=X-1 
250ENDPROC 

260DEFPROCbasso_sinistra: X = X-1 : IF X< 0 
'.=0: GOTO 280 

270Y=Y+1:IF Y>28 Y=28:X=X+1 

280ENDPROC 

290DEFPROCA:ENDPROC 

300DEFPROCsparo:SQUND0,-10,20,10:X1=X* 
2+16:Y1=Y*32+16:F0R K=5 TO 15:GC0L RND( 
5)-1,RND(3):MOVEX1,1023-Y1: PLOT149,Xl+K 
2,1023-Y1 -K"‘"2: NEXT: CLG: ENDPROC 


(nessuno spostamento) che come «riempitivo» nell’istru¬ 
zione ON Z PROC... per i valori che Z non può mai assu¬ 
mere, corrispondenti agli incrementi tra due coppie conti¬ 
gue superiori a 16. 

■ Come potete notare, il movimento della pallina è già 
piuttosto veloce; tuttavia esso è rallentato a causa del 
tempo necessario per l’esecuzione di alcune istruzioni ac¬ 
cessorie. Sostituendo alcune righe con le seguenti, il pro¬ 
gramma si riduce allo stretto indispensabile per la gestio¬ 
ne del movimento: 

>30 PRINT TAB(X,Y)CHR$250 

>40 Z = ADVAL(0):IF INT(Z/2)< > Z/2 PROCsparo:GOTO 30 
> PRINT TAB(X,Y)CHR$32 

Osservate ora la velocità di spostamento e sbalordite. È 
quasi un... «linguaggio macchina»! 
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SPAZIO POCKET 

di Marco Marzano & Maurizio Erbani 



8 Kb RAM 


Continua la 
nostra rassegna 
dei pocket 
computers più 
diffusi sul mercato . 



Questo mese la 
nostra attenzione 
è caduta sul 
piccolissimo ma 
potente PC-1248 


rasformazione in senso funzionale del già noto 
PC-1247, lo SHARP PC-1248 si caratterizza per la 
sua originale estetica, contrariamente ai pocket 
più diffusi è infatti totalmente nero, con i tasti «soft 
touch» rotondi e ricoperti da una sottile membrana a tenu¬ 
ta che protegge la macchina da polvere e umidità. 
Piccolo come un pacchetto di sigarette e leggerissimo 
(pesa poco meno di un etto), il PC-1248 consta di una ta¬ 
stiera alfabetica con 18 tasti predefiniti con istruzioni Ba¬ 
sic (utilissimi per sveltire le digitazioni in fase di program¬ 
mazione e per evitare noiosi errori), un tastierino numeri¬ 
co, ed alcuni tasti separati per lo scorrimento delle righe 
dei programmi e la gestione del cursore sul display. 
Quest’ultimo è a cristalli liquidi, formato da 16 caratteri a 
matrice di punti 5x7. 

Pur essendo molto piccolo e maneggevole, il PC-1248 è 
dotato di una memoria molto potente (quasi 8 Kb RAM 
permanente), cosa che lo rende assai utile anche a chi ab¬ 
bia l’abitudine di redigere programmi lunghi e complessi. 
Il Basic di questo pocket è abbastanza completo, in quan¬ 
to presenta tutte le istruzioni standard del linguaggio, ed 
anche qualcuna un po’ particolare e rara per un computer 
così piccolo, come ON... GOTO e ON... GOBUS, TRON e 
TROFF (per il debug in fase di programmazione), AREAD 
(istruzione che vi consente, eseguendo programmi richia¬ 
mabili con il tasto DEF, di fare assumere alla variabile 
specificata il valore di quanto presente sullo schermo). 

Il Basic consente inoltre di usare variabili alfanumeriche 
ad una lettera, ed anche matrici bidimensionali. 

Come in tutti i pocket della SHARP, ANCHE IL PC-1248 è 
dotato di numerose funzioni matematiche (trigonometri¬ 
che e trigonometriche inverse, esponenziali e logaritmi¬ 
che), e inoltre riserva istruzioni specifiche (DEGREE, RA- 
DIAN, GRAD) per le conversioni angolari. 

Alcune considerazioni meritano poi alcune funzioni spe¬ 
ciali di questo computer da taschino: il comando per i 
suoni BEEP, l’autospegnimento dopo qualche minuto di 
non uso (per evitare un inutile dispendio di energia), nel 
PASSWORD definibile per proteggere il contenuto della 
memoria da operatori indesiderati. 



Per quanto rguarda la possibilità di collegamenti periferi¬ 
ci, il PC-1248 non è certo inferiore agli altri esemplari che 
offre il crescente mercato. La sua porta all PIN (dispo¬ 
sta su uno dei due lati più corti) offre la possibilità di coi- 
legarsi con la SHARP CE-125, stampante termica da 24 
caratteri per riga con registratore a micro cassette, o con 
la SHARP CE-126 P (che è la stessa stampante del modu¬ 
lo sopra descritto, solo che non comprende il registratore 
ma il cavo per collegarlo). Altrimenti, per chi volesse col¬ 
legare questo pocket al solo registratore senza avere bi¬ 
sogno della stampante, è sufficiente l’interfaccia SHARP 
CE-124. 

L’ultima notazione è per la durata delle batterie di questo 
pocket: la casa garantisce una autonomia di 120 ore di 
utilizzo medio (questo prevede un rapporto di 1 a 5 tra il 
tempo di programmazione e la durata di accensione del 
display), quanto basta per fare di questo piccolo e scuro 
computer un vademecum insostituibile. 


COMPUTER TASCABILE 
SHARP PC-1248 

CARATTERISTICHE TECNICHE 


MODELLO 

DIMENSIONI 

PESO 

TASTIERA 

VISORE 


SHARP PC-1248 
135x70x11 mm. 
85 gr. 

53 TASTI. 

A CRISTALLI 
CARATTERI. 

7,422 Kb. 

DI 


LIQUIDI. 16 


MEMORIA RAM 
TEMPERATURA 
FUNZIONAMENTOQ °C-40 °C. 

CONSUMO 0,05 W. 

ALIMENTAZIONE 2 PILE AL LITIO CR 2032. 
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CALCOLO COMBINATORIO 


Immaginate di avere dimenticato la combinazione della 
vostra cassaforte e di volerla trovare per tentativi. A se¬ 
conda delle cifre che compongono la vostra combinazione 
e dell'arco in cui esse possono variare (0-9, 0-99, ecc.) il 
calcolo combinatorio vi permetterà di conoscere con esat¬ 
tezza la quantità di tutte le possibli disposizioni delle ci¬ 
fre in questione. 

I concetti base del calcolo combinatorio sono due: gli og¬ 
getti e la classe. Il numero degli OGGETTI è dato dalla 
quantità di elementi di qualsiasi natura (siano essi cifre di 
una combinazione, simboli di una slot-machine o del toto¬ 
calcio, e così via) su cui opera questo tipo di calcolo. Per 
CLASSE si intende invece il numero di posizioni che pos¬ 
sono essere assunte dagli oggetti (per intenderci: nelle 
slot-machine più diffuse la classe sarà 3, nelle schedine 
del totocalcio sarà 13, e cosi via). 

II nostro programma è diviso in 5 parti (ciascuna richiama¬ 
bile con un tasto predefinito), a seconda del tipo di calco¬ 
lo che vogliamo svolgere. 

Supponiamo di avere 3 oggetti (es.: i numeri 1 2 e 3); vo¬ 
gliamo considerare tutti i gruppi possibili formati da que¬ 
sti oggetti. Essi saranno: 12, 13, 21, 23, 31, 32; abbiamo 
cosi le DISPOSIZIONI di classe 2, di 3 oggetti. Se esclu¬ 
diamo da queste quelle in cui si ripetono le stesse cifre 
(eliminiamo cioè 21 in quanto già le due cifre sono pre¬ 
senti in 12, e cosi via), avremo le COMBINAZIONI: 12, 13, 
23. Se vogliamo poi tenere conto dei gruppi che si otten¬ 
gono ripetendo più volte la stessa cifra (11, 22, 33), parle¬ 
remo allora, rispettivamente, di DISPOSIZIONI CON RIPE¬ 
TIZIONI (11, 12, 13, 21, 22, 23, 31, 32, 33), e di COMBINA¬ 
ZIONI CON RIPETIZIONI (11, 12, 13, 22, 23, 33). 

Il quinto tipo di calcolo combinatorio si presenta quando 
il numero degli oggetti è uguale alla classe; in questo ca¬ 
so parleremo di PERMUTAZIONI di N oggetti. Ad esempio, 
le permutazioni dei tre soggetti presi in considerazione 
negli esempi precedenti sono: 123, 132, 213, 231, 312, 321. 
Come già accennato abbiamo diviso in 5 parti il nostro 
programma, ognuna corrispondente ad un tipo di calcolo 
e richiamabile con i tasti definibili, secondo la tabella che 
segue. 

DEFA : DISPOSIZIONI 

INPUT: OGGETTI E CLASSE 
DEF B : DISPOSIZIONI CON RIPETIZIONI 

INPUT: OGGETTI E CLASSE 
DEF C : COMBINAZIONI 

INPUT: OGGETTI E CLASSE 
DEF D : COMBINAZIONI CON RIPETIZIONI 

INPUT: OGGETTI E CLASSE 
DEF F : PERMUTAZIONI 

INPUT: OGGETTI 

Per quanto riguarda gli INPUT dei programmi, vi segnalia¬ 
mo che oggetti e classi non possono essere minori di 1, e 
che nelle disposizioni e combinazioni senza ripetizioni la 
classe non deve essere maggiore degli oggetti. Ogni tipo 
di errore di immissione dei dati sarà comunque controllato 
dal computer, che vi permetterà la ripetizione dell'input. 
Con questo programma potrete soddisfare anche piccole 
curiosità. Per esempio: vi siete mai chiesti quante colon¬ 
ne dovreste giocare al totocalcio per avere la certeza ma¬ 
tematica di fare 13? Sono esattamente 1.594.323, per la 
modica (?) cifra di 797.161.500 di lire. Abbiamo otenuto 
questo risultato richiamando con DEF B il nostro pro¬ 
gramma, e immettendo, alle richieste di input del compu¬ 
ter, il numero d oggetti (3) e la classe (13). 



Un altro esempio di utilità pratica: volete organizzare un 
torneo di calcio con 9 squadre, da disputarsi a girone uni¬ 
co con partite di andata e ritorno. Ebbene sarà sufficiente 
richiamare il programma con DEF A ed immettere gli og¬ 
getti (9) e la classe (2), per ottenere il risultato, che in que¬ 
sto caso sarà di 72 partite. 

Il programma «gira» su tutti i poket della SHARP che han¬ 
no i tasti definibili (su quasi tutti, quindi). Per gli altri, co¬ 
munque, basterà fare partire il programma, con il RUN, 
ma con un’istruzione di GOTO, seguita dal numero di li¬ 
nea corrispondente all’inizio della parte di programma 
prescelta. 


1 REn ***************************** 

2 REn * CALCOLO COMBINATORIO * 

3 REM * DI M. MARZANO E M. ERBANI * 

4 REM * 0 1387 * 

5 REM ***************************** 

10 "REPRINT" * DISPOSIZIONI *" 

20 INPUT "NUM. OGGETTI ?" ;N-*IF N<1 THEN 
GOSUB 1000:GOTO 20 

30 INPUT "CLASSE ?";K:IF K<1 THEN GOSUB 
1000 : GOTO 30 

40 IF K>N THEN GOSUB 1000:GOTO20 
50 R= 1 :F0R I =N TO CN-K+n STEP -1 
60 R = R*I :NEXT I 

70 PRINT"NUMERO DISPOS. =":PRINT R:END 
100 "B" :PRINT "* DISP. CON RIP.*" 

110 INPUT "NUH. OGGETTI ?";N:IF N<1 THEN 
GOSUB 1 000 ^ GOTO 110 

120 INPUT "CLASSE ?";K:IF K<1 THEN GOSUB 
1000 : GOTO 120 
1 30 R=NTK :G0T0 70 

200 "C":PRINT " * COMBINAZIONI *" 

210 INPUT "NUM. OGGETTI ?";N:IF N<1 THEN 

GOSUB 1000 -'GOTO 210 

220 INPUT "CLASSE ?";K-'IF K<1 THEN GOSUB 
1 000 : GOTO 220 

230 IF K>N THEN GOSUB 1000:GOTO210 
240 R=1 -'FOR I-N TO CN-K+n STEP -1 
250 R = R*I :NEXT I 
260 R=R/FACT K 

270 PRINT"NUMERO COMBIN. =":PRINT R:END 
300 "D":PRINT "* COMB. CON RIP.*" 

310 INPUT "NUM. OGGETTI ?";N-*IF N<1 THEN 
GOSUB 1 000 : GOTO 310 

320 INPUT "CLASSE ?"JK:IF K<1 THEN GOSUB 
1 000 : GOTO 320 

330 R=1 : FOR I = CNfK-1D TO N STEP -1 

340 R = R*I :NEXT I 

350 R=R/FACT K-'GOTO 270 

400 "F":PRINT " * PERMUTAZIONI *" 

410 INPUT "NUM. OGGETTI ?";N:IF N<1 THEN 
GOSUB 1 000 : GOT0 410 
420 R=FACT N 

430 PRINT"NUMER0 PERMUT. =":PRINT R-*END 
1000 PRINT "ERRORE IN INPUT" :RETURN 
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PROGRAMMA 


di Marco Marzano 




ormai un mese che è cominciata la stagio¬ 
ne calcistica 1987/1988 e, con essa, il giro 
di miliardi che accompagneranno i concor¬ 
si del totocalcio fino al prossimo giugno. 

Il fenomeno ha ormai, da alcuni anni a questa par¬ 
te, contagiato numerosissimi possessori di home 
e personal computers, che, consapevoli delle am¬ 
pie possibilità che offrono queste macchine più o 
meno potenti, hanno creato un vero e proprio soft¬ 
ware dedicato sistemi di riduzione per il toto¬ 
calcio. 

Il programma che vi presentiamo, molto semplice 
e senz’altro suscettibile di miglioramenti, vi dà la 
possibilità di giocare una schedina con sei doppie 
ed ottenere una riduzione da 64 a 20 colonne ef¬ 
fettive da giocare. 

Dopo aver introdotto la data della schedina da 
giocare, il computer vi richiederà i nomi delle 26 
squadre degli incontri previsti dalla schedina stes¬ 
sa, che dovrete immettere seguendo le istruzioni 
del vostro calcolatore. 

Completata questa operazione, sarà visualizzata 
la schedina in questione con la possibilità di im¬ 
mettere i pronostici, uno per uno. Anche questa 
fase del programma è completamente guidata dal 
computer che vi ricorderà, man mano che voi pro¬ 
cederete con i pronostici, quante doppie vi resta¬ 
no ancora da giocare. 

Terminata, con l’immissione dell’ultimo pronosti¬ 
co, la fase di INPUT, ecco che il computer visua¬ 
lizzerà la schedina con tutte e 20 le colonne otte¬ 
nute, con una riduzione standard, dalle 64 origina¬ 
rie. 

Coloro che sono in possesso di una stampante, 
infine potranno ottenre su carta la schedina, esat¬ 
tamente come compare sul monitor. 


STRUTTURA DEL PROGRAMMA 


10-40 


50-220 


: DIMENSIONAMENTO VARIABILI. 
Vengono dimensionate le variabili 
del programma. 

: PRESENTAZIONE. Una schermata vi 
spiega il programma, che procede 
con l’immissione della data della 
schedina. 

230-380 : 1 a SCHERMATA-INPUT SQUADRE. Il 

computer vi chiede di immettere, 
una per una, le 26 squadre della 
schedina. 

390-620 : 2 a SCHERMATA-INPUT PRONOSTI- 

Cl. Ora la schedina in questione è 
rappresentata sul video. Il computer 
vi guida neH’immissione dei prono¬ 
stici. 

È richiamata la routine delle righe 
10000-10040. 

: 3 a SCHERMATA-OUTPUT VIDEO. Il 
computer elabora la riduzione delle 
64 colonne, e visualizza le 20 così ot¬ 
tenute. Potete scegliere di stampare 
le colonne stesse. 

: OUTPUT STAMPANTE. Viene stam¬ 
pata la schedina da giocare con le 
20 colonne ottenute dalla riduzione 
del computer. 

1000-7040 : ROUTINES ELABORAZIONE DATI. 

Vengono elaborate le 6 doppie e le 7 
fisse da giocare sulla schedina. 

10000-10040: VISUALIZZAZIONE PRONOSTICI. Du¬ 
rante la fase di immissione dei pro¬ 
nostici, questa routine provvede alla 
visualizzazione dei pronostici stessi. 


630-830 


840-980 
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LIST 


1 


LIST 


2 


18 reh *************************** 


:CURSOR1 3, 1 1 :PRINT"-" ; CURSORI 1 , 

20 REM *DIMENSIONAMENTO UARIABILI* 


10: INPUTX$CH): IFLENCX$CH))>9THEN340 

30 REM ***************** 3 »:********* 


350 MUSICM2$:CURSORI,1 3 PRINT"2‘ SQUADRA" 

40 DIf1X$(26),S$ C 13,20], P$( 13) 


: CURSOR 1 3, 1 4 :PRINT"-" CURSORI 1 , 1 

50 REH *************** 


3 :1NPUTX$CL):IFLENCX$CL))>9THEN350 

60 REH *PRESENTA2IONE* 


360 PRINT"0" :H=Hi-2:L=L+2:1 = 1 + 1 :IFI=14THE 

70 'REM *************** 


N380 

80 COLOR, ,7,0PRINT"B" 


370 GOTO330 

90 PRINT" C4C4C4C4C.4C4C4C4C4C4C 4 C 4 

C4C4r4C4r4C4C4r4r 4r 4C4T4C 4L4" 


380 CONSOLE:PRINT"0" 

100 PRINT" 


390 REM ******************************* 

C5" 


400 REM *2'SCHERMATA -INPUT PRONOSTICI* 

110 PRINT" rp **TOT0-SHARP** 


410 REM ******************************* 

<~5" 


420 PRINT"B" 

120 PRINT" C7 


430 PRINTTABCT)5"SCHEDINA DEL " ;D$ 

rs" 


440 F0RK=1 T0CLENCD$)+13) PRINTTABCT)"-" ,* 

130 PRINT" C7 MAR2AN0 8 . ERBANI @ 1- 


=MUSICM2$:NEXTK 

987 F5" 


450 PRINT PRINT PRINTTABC7) ;"N. FD 1 * SQUAD 

140 PRINT" 


RAFD2’ SQUADRAF_UPR. " 

C5" 


460 PRINTTABC6);"D0E0E081E0E0E0E0E0E0E0E 

150 PRIM C3C2CjCjCjC ;C JC3C3C3L3L 


0E0D1E0E0E0E0E0E0E0E0E081E0E0CE" 

3C3C3C3 :C 3C *f if 3C3L3C3L3C3C3" 


470 K= 1 P=1 :L=2 

160 NI$="CI DI E 1F1 Gl AlB1":TEMP07:MUSICM1 $ 


480 K$=STR$CK) 

170 PRINT"- 


490 PRINTTABC 6 );"FD " ;K$ ; "FD";X$CH)5TABC 

M 


20) ;X$CL) ;TABC29);"Fp FP" :K=K+1 P=H+2:L 

180 PRINT" IN QUESTO PROGRAMMA IL COMPUT 


= L+2 :IFK>9THEN51 0 

ER ELABO- 


500 GOTO480 

RA UN SISTEMA PER T OTOCALCIO 


510 K=10•H=19 :L=20 

DA 6 DOP- 


520 K$=STR$CK) 

PIE C 64 COLONNE), E UI FORNIS 


530 PRINTTABC 6 ) ; "F_D" ;K$ ; "FD" ;X$CH) 5TABC2 

CE LO SUI-" 


0)JXSCL) 5TABC29) ;"F£ FD" :K=K+1 P=H+2:L = 

190 PRINT" LUPPO RIDOTTO C20 COLONNE),RI 


L + 2 : IFK>13THEN550 

DUCENDO IL 


540 GOTO520 

COSTO CMA ANCHE LE PROBABILIT 


550 N=6:?=0 :l = 1 :H=1 :L=2 PR INT4PB C 6 ) ;"CDE 

A' DI UIN- 


0E0D1E0E0E0E0E0E0L0E0E0F0F0F0F0F0F0F0F0F 

CITA) DA L.32000 A L.10000" 


0£0D1£0f0pD"PUSICMl$ PORQ=1T01 50 :NEXTQ 

200 PRINT:PRINT"- 


560 CURS0R5,20PRINT"Auete";N;" doppie a 

- - 


d1s pos1zione" 

210 M2$="C2":MUSICM2$ 


570 CURS0R2,22 PRINT" 

220 PRINT"B Data della schedina "j : INPUT 


" 

D$ 


580 MUSICM2S PURS0R2,22 PRI NT"PRONOSTI CO 

230 REM ***************************** 


: ";X$CH);X$CL) ;:INPUTP*CI) :IFLENCP$ 

240 REM *1'SCHERMATA - INPUT SQUADRE* 


CI))>2THEN580 

250 REM ***************************** 


590 IFLENCP$CI))<2THENG0SUB1000 :GOSUB100 

260 PRINT"0" 


00 :GOTO560 

270 T=8+INTC10-LENCD$))/2 


600 IFN=0THEN580 

280 PRINTTABCT);"SCHEDINA DEL " ;D* 


610 2=2+1 :N=N- 1 :A$=LEFT$CP*C I ), 1 ) -*B$=RIG 

290 F0RK=1T0CLENCD$)+13) PRINTTABCT); 


HT$CP$CI),1) 

:MUSICM2$ PF.XTK 


620 ON2GOSUB2000,3000,4000,5000,6000,700 

300 PRINTPRINT" Immettere le 26 squadre 


0 =GOSUB10000 :GOTO560 

del 13 1ncontr1 


630 REM **************************** 

(max.9 car.), premendo 


640 REM *3'SCHERMATA - OUTPUT UIDEO* 

ogni uolta <CR>" :C0NS0LE7,9 :MUSICM1$ 


650 REM **************************** 

310 PRINT"0" 


660 PR INT " le! " 

320 1 = 1 :H=1 :L=2 


670 PRINTTABCT);"SCHEDINA DEL " ;P$ 

330 PRINT" INCONTRO N. ";I 


680 F0RK=1T0CLENCD$)+13)PRINTTABCT)"-"; 

340 MUSICM2S:CURSOR1, 10PRINT"1 * SQUADRA" 


: MUSI CM2$ PEXTK 


► ►► 
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TOTO SHARP 


SHARP MZ 700 


LIST 3 


630 PRINT:PRINT:PRINT’1'SQURDRRFC2'SQURD 
RR£DSUILUPP0 20 COLONNE" 

700 PRINT" C0E0E0E0E0E0E0E9E0C1E3E3E2E0E0 
EaE0EaE28_l_EaE2E0EaE0E2E0E0E0E0E0E0E0E0E0 

E0E0E0EaE0" ; 

710 1 = 1 :H=1 :L=2 

720 PRINTX$CH3 5TRBC10 3 ;X^ C L 3 ;TRBC193 J"FD 
" ; ^MUSICHI $ 

730 F0RG=1TO20:PRINTS$CI,GJ;:nUSICN2$:NE 
XTG 

740 1 = 1 + 1:H=H+2:L=L+2:IFI>13THEN760 
750 GOTO720 

760 PRINT^PRINT" Quesio s istema r i dono 
u iene a cos ta.re 

L.10000,contro le L.320 

00 de I suo svi¬ 
luppo i nt egra I e . " : NUS J C 

HI $ 

770 FORI = 1 T02000 :NEXTI :PRINT ,, B" 5TRBC203 ; 

"Uuoi la stampa?:S/N":nUSICH2$ 

780 GETU$ 

793 IFU$="S"THEN870 
800 IFU$="N"TMEN820 
810 GOTO780 

820 CURSOR20,23:PRINT'IN BOCCR RL LUPO2 
" ; MUSICHI $ 

830 GETT$:IFT$=""THEN830 
840 REH ****************** 

850 REH XOUTPUT STRHPRNTE* 

860 REH ****************** 

870 PCOLOR0 :nODETN 

880 PRINT/PTRBCT3 ;"SCMEDINR DEL " ;D$ 

890 F0RK=1T0CLENCP$3+13 3:PRINT*PTRBCT3"- 
" ; : NEXTK 

900 PRINT/P-'PRINT/P 

910 PRINT/P"SQURDRR 1 SQURDRR 2 SUILUPP 
0 20 COLONNE" 

920 nODEGR:HOUE0,20:LINE480,20 :H0UE234,4 
0 :LINE234,-300 rPhONE 
930 1 = 1 :H=1 :L = 2:nODETN 

940 PRINT/PX$CH3;SPCC10-LENCX$CM3 33;X$CL 
3 ;SPCC10-LENCX$CL3 3 3;:F0RG=1TO20:PRINT/P 
S$ CI,G 3 ;:NEXTG 

950 1 = 1 + 1 :M=M+2:L=L + 2:IFI>13TMEN970 
960 GOTO940 

970 PCOLOR0 : PRINT*P:PRINT*P :PRINT/P"- 


980 PRINT/P"NRR2RNO 8» ERBRNI - SHRRP nz- 
731 Q 1987" =SKIP4 :GOTO820 
1000 REO ******* 

1010 REO *FISSE* 

1020 REO ******* 

1030 F0RG=1TO20:S$CI,G3=P$CI3:NEXTG:RETU 
RN 

2000 REO ********** 

2010 REH *1 ' DOPP-IR* 


LIST 


2020 REH ********** 

2030 F0RG=1T06:S$CI,G3=R$:NEXTG 

2040 FORG=7TO10-’S$C I , G3=B$ :NEXTG 

2050 F0RG=1 1T014 :S$CI,G3=R$ =NEXTG 

2060 F0RG=15TO20:S$CI,G3=B$:NEXTG: RETURN 

3000 REH ********** 

3010 REH *2'DOPPIR* 

3020 REO ********** 

3030 F0RG=1TO10 = S$CI,G3=R$ :NEXTG 

3040 F0RG=1 1TO20:S$CI,G3=B$ :NEXTG^RETURN 

4000 REO ********** 

4010 REO *3'DOPPIR* 

4020 REH ********** 

4030 S$CI,13=R$:S$CI,23=B$:S$CI,33=B$:S$ 

C I,43=R$ :S$CI,53=B$ :S$C I ,63=B$:S$U,73=R 
$:S$CI,83=R$:S$CI ,93=B$ 

4040 S$CI,103=B$:S$CI,113=R$:S$CI,123-8$ 
=S$CI,133=B$:S$CI,I43=B$:S$CI,153=R$:S$C 
I,16 3 = R$ : S$ CI,17 3 = R$ 

4050 S$CI,183=B$:S$CI,193=R$:S$CI,203=R$ 

: return 

5000 REH ********** 

5010 REH *4'DOPPIR* 

5020 REO ********** 

5030 S$CI,1 3=R$ ; S$ CI 3 2 3=B$ :S$CI ,33=8$ :S$ 
CI ,43=R$ : S$ CI 3 53 =R$ : S$ CI,6 3 = 8$ :S$C 1 3 73=8 
$ :S$C 1 3 8*3=R$ :S$C I ,93=R$:S$CI 3 1 0 3 = 8$ :S$C I 
3 113=8$ 

5040 S$CI,123=R$:S$CI,13 3=R$ :S$CI 3 143=8$ 

: S$ CI 3 153 =R$ -S$CI a 163 =8$ : 5$ C1 3 173=R$:S$C 
I, 183=B$ :S$C I ,19 3 =8$ : S$ C 1,203=R$: RETURN 
6000 REN ********** 

6010 REO *5'DOPPIR* 

6020 REO ********** 

6030 S$CI,1 3=8$ :S$CI,23=R$:S$CI 3 33=8$:S$ 
C 1 3 4 3 =R$ 

6040 F0RG=5T019STEP2:S$(I 3 G3=R$ ^NEXTG 
6050 FORG=6TO20STEP2 :S$CI,G3=B$ : NEXTG:RE 
TLIRN 

7000 REH ********** 

7012 RED *6'DOPPIR* 

7020 REO ********** 

7030 S$CI, 1 3=R$:S$C 1 3 23=B$ :S$C1,33=R$:S$ 
CI,43=R$:S$CI,53=B$:S$CI,63=B$:S$CI,73=B 
$:S$CI,83=B$:S$CI,93=R$:S$C I , 10 3 = R$ :S$CI 
, 11 3 =8$ 

7040 S$CI, 123=8$ :S$CI,133=R$=S$CI, 143 = R$ 
=S$(I,153=R$-S$CI,163=R$:S$CI,173=B$:S$C 
I,183=R$:S$CI,193=8$=9$CI,203=8$:RETURN 
10000 REH **************************** 
10010 REH *UISURLI22R21ONE PRONOSTICI* 
10020 RED **************************** 

1 0030 CURSOR30, C5+I 3 :PRINTP$C I 3 : 1 = 1 + 1 -’H= 
H+2 : L=L + 2:1FI>13THEN660 
10040 RETURN 
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di 0. Contenti 


il superprogramma grafico 


Di certo ricorderete come già nella scorsa puntata abbiamo teso a rilevare la pressocché 
completa implementabilità dei listati pubblicati in questa rubrica di grafica; ebbene, si dà il caso 
che il nostro coordinatore tecnico, una specie di post-vichingo dalla chioma dorata, rabbia voluta 
mettere alla prova. Il Nicolai Fabrizio (questo il nome che gli dette Odino), forte della 
memorizzazione di circa 1500 linguaggi di programmazione, pose i suoi 10 terminali (le dita) sulla 
tastiera dell’Atari 520, cominciò a digitare alla velocità della luce, ma colto da improvviso raptus 
stese un listato con istruzioni Fortran miste a Pascal con routinette in linguaggio macchina! Dette 
un RUN con sei U fra lo sbigottimento dei colleghi di redazione, quindi l’Atari esplose in mille 
pezzi, rendendo un Nicolai riccioluto dallo aspetto vagamente nigeriano! Lo portammo alla 
informatic-deliri mentre ripeteva ancora: «Voglio il PEPPY mv 916 senza abbonamento!», mentre la 
segretaria Serena gli accarezzava la fronte sudata. Voglio dire che non va a finire sempre in 
questo modo con i nostri programmi, comunque attenzione: non si sa mai! 


Un invito ai lettori! 


Avete qualche routine grafica che ritenete interes¬ 
sante? Se questa non è eccessivamente lunga (non 
oltre le 30 righe) e assolutamente INEDITA, vale a 
dire mai apparsa su riviste, libri o manuali del setto¬ 
re informatico, inviatela a: 

LIST. Rubrica «AIDED STYLING» Via Flavio Stilico- 
ne 111, 00175 Roma; 

completa di LISTATO o relativa spiegazione, in bre¬ 
ve, del suo contenuto. In alternativa al listato potre¬ 


te sempre inviarci una cassetta con miniprogram¬ 
ma; le creazioni grafiche più degne di nota verranno 
pubblicate assieme al nome dell’autore nelle pagi¬ 
ne di questa stessa rubrica. I listati possono anche 
essere delle semplici, ma interessanti variazioni dei 
programmi editi in queste stesse pagine, in questo 
caso ricordate di segnalarci la puntata della quale 
avete attinto i vostri spunti, non inviateci le sole va¬ 
rianti, ma il listato completo. 


TAVOLA DELLE ISTRUZIONI EQUIVALENTI 


Funzioni 

Sistemi 

MSX 

SIMON 

C64 

CBM 

128 

OLIVETTI 

PC 128 

SEGA 

SC 3000 

ATARI 

520 

SPECTRUM 

ZX 48 K 

Punti 

PSET 

PLOT 

DRAW 

PSET 

PSET 

LINEF 

PLOT 

Linee 

LINE 

LINE 

DRAW 

LINE 

LINE 

LINEF 

DRAV\« 

Riempie 

PAINT 

FILL 

PAINT 

PAINT 

PAINT 

PAINT 

o o o o 

Cerchi 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

Blocchi pieni 

LINEBF 

BLOCK 

BOX 

BOXF 

(PAINT) 

(FILL) 

o o o o 

Blocchi vuoti 

LINEB 

(LINE) 

BOX 

BOX 

(LINE) 

(LINEF) 

o o o o 


Legenda: (PAINT) = le istruzioni fra parentesi possono simulare con qualche variazione la funzione desiderata 
— 0 0 00 = istruzione non presente. 
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SPIRALI, GIRANDOLE E 


“CONTINUA UNO DEI PIÙ AFFASCINANTI VIAGGI NEL MONDO DE 



con una tavoletta grafica e... un po’ di fantasia 


Spirali, girandole e serpentine 


Vi accorgerete di quali figurazioni fantasiose ed avvincen¬ 
ti sia capace il vostro HOME, descrizioni grafiche che ave¬ 
te spesso ammirato sui monitor degli shop di informatica 
e credevate difficilmente realizzabili col vostro elaborato¬ 
re. La rubrica grafica di LIST ora vi rende tutto più agevo¬ 
le, anche per il fatto di non sottoporvi una lunga serie di 
listati differenti, ma per quella che ormai è divenuta una 
saggia regola, un solo listatino di base sul quale ruotano 
minute e semplici VARIANTI che si allacciano al tema 
grafico del mese. Tema che in questa seconda puntata, 
come da titoletto, illustra il modo per realizzare diversi ti¬ 
pi di girandole, circolari o squadrate, spirali concentriche, 
serpentine, ma anche stelle e vortici. 

Come al solito il list di base e le varianti verranno date in 
BASIC-MSX, ma sia la tavola delle istruzioni equivalenti 
che le spiegazioni sulla sintassi delle righe di istruzioni 
adottate, rendono questa rubrica onnicomprensiva per 
una vasta gamma di HOME, anche di quelli non citati nel¬ 
la tabella di cui sopra. 


Sintassi delle istruzioni grafiche MSX. 


La sintassi serve per implementare correttamente le se¬ 
guenti istruzioni con quelle del vostro HOME. 

— LINE (colonna di partenza, riga di partenza) — (colon¬ 
na di arrivo, riga di arrivo), colore, box 

Se «box» è «BF» (come nella variante C) vuol dire che vie¬ 
ne disegnato un quadrilatero pieno che ha per diagonale 
le coordinate di partenza con quelle di arrivo. 

Quindi se non avete l’opzione BF fate disegnare il quadri¬ 
latero riempiendolo con una successiva istruzione equiva¬ 
lente a PAINT (vedi tabella). 

Ancora, se non esiste l’opzione «box» (tutte le altre varian¬ 
ti), verrà descritta una linea che parte dalle coordinate di 
partenza fino a quelle di arrivo. 

— CIRCLE (colonna centro, riga centro), raggio 

— PAINT (colonna, riga) 

Nella PAINT il riempimento della figura inizia dalla colon¬ 
na e dalla riga indicata 
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VARIANTE EXTRA LISTATO 

































LISTATO 

BASE 

e 

VARIANTI 


V 
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Tecniche di computergrafica 


Avvertenze 


Prima di passare alle varianti ricordiamo che: SCREEN 2 
sta per schermo in alta risoluzione (191-255); COLOR 
1,11,11 pone la figura in nero su sfondo e cornice gialle; 
CLS pulisce lo schermo. 

■ Le varianti 

Dopo aver adottato ogni variante, ripristinate il listato ba¬ 
se originale per ottenere gli effetti grafici desiderati. 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


IComputergrafica 2| 
ispirali Glrandolel 
le Serpentine**!-*- 


®0®L | 

I LISTATO BASEI^II 

I-1 ■ S| 

Idi O. Contenti | • *T| 


2 


■I 




10 SCREEN 2:COLOR 1,11,11:CLS 

20 N=440 

30 DIM Y(N),X<N> 

40 FOR F=1 TO N 
50 A=A+.2 

60 C=COS(A>*A+120: R=SIN <A)*A+100 
70 PSET (C,R) 

80 Y <F)=C:X <F)=R 

90 IF F=1 THEN GOTO 110 

100 LINE <Y <F-1>,X(F-l)>—<Y <F>,X<F)) 

110 NEXT F* 

120 GOTO 120 

130 REM i-1 

140 REM |VARIANTI| 

150 REM 1 - J 

160 REM 

165 REM - 


170 REM VARIANTE A 

180 REM - 

190 ! 20 N=78 
200 ! 50 A=A+1.5 
205 REM - 


210 REM VARIANTE B 

220 REM - 

230 ! 20 N=98 

240 ! 50 A=A+1.2 

250 ! ELIMINARE RIGA 70 

260 ! 90 IF F<5 THEN GOTO 110 

270 ! 100 L I NE (Y (F-4 ) , X <F—4 ) > - ( Y (F-1 ) , X 

<F-1>) 

275 REM - 

280 REM VARIANTE C 

290 REM - 

300 ! 20 N=150 

310 ! 50 A=A+1.3 

320 ! 90 IF F<6 THEN GOTO 110 

330 ! 100 LINE<Y<F-5>,X<F-5)), <Y(F),X(F 

)),1,BF 

335 REM - 

340 REM SOTTOVARIANTE CI 
350 REM - 

360 REM Ferme restando le modifiche del 
la variante C,digitare: 

370 ! 20 N=68 

380 ! 100 LINE(Y(F-5),XCF-5)>-<Y(F),X(F 
) ) 

385 REM - 

390 REM VARIANTE D 

400 REM - 

410 ! 20 N=91 


420 ! 50 A=A+1.2 

430 ! 90 IF F<12 THEN GOTO 110 

440 ! 100 LINE (Y <F-10>,X<F-10)>-(Y(F> , 

X(F) ) 

450 ! 101 LINE <Y<F-10),XCF-10)>-<Y<F-1 

),X(F-l)) 

455 REM - 

REM VARIANTE E 

REM - 

20 N=151 


460 
470 
480 
490 
500 
510 
520 
530 
540 
545 
550 
560 
570 
580 
590 
600 
610 
620 
625 
630 
640 
650 
660 
670 
680 
690 
A) 

695 
700 
710 
720 
730 
740 
A 

750 
760 
770 
1 ) ) 

775 
780 
790 
800 
810 
820 
830 
840 
850 
860 
F) ) 

870 ! 101 
+10,X(F)) 


50 A=A+.6 
ELIMINARE 
90 IF F<4 
100 
101 


LA RIGA 70 
THEN GOTO 110 
CIRCLE(Y (F-3)+5, X (F-3) > ,5 
CIRCLE( Y (F-3)+8,X <F-3>) , 5 


102 PAINT (Y(F-3)+12,X(F-3)) 

REM - 

REM VARIANTE F 

REM - 

20 N=151 
50 A=A+. 9 

60 C=COS(A)*A+125:R=SIN(A)*A+100 
ELIMINARE RIGA 70 
90 IF F<4 THEN GOTO 110 
100 CIRCLE(Y(F-1>,X(F-1>>,5+A 

REM - 

REM VARIANTE G 

REM - 

! 20 N=150 

! 50 A=A+.8 

! ELIMINARE RIGA 70 

! 90 IF F<10 THEN GOTO 110 

! 100 CIRCLE(Y<F-2),X(F-l)),ll-SQRC 


REM 

REM 

REM 


VARIANTE H 


20 N=227 

50 A=A+.5 :B=B+. 173 

60 C=COS(A)#A+130:R=SIN(A)*B+170- 


ELIMINARE 
90 IF F<5 
100 LINE <Y(F) 


LA RIGA 70 
THEN GOTO 110 

X(F))-(Y(F-1) 


X (F- 


REM - 

REM VARIANTE 
REM - 


I 


20 

50 

60 

70 

80 

90 

100 


N=52 

A=A+.12:B=B+.5 
C=COS(A>*60:R=SIN(B>*50 
LINE <C+120,R+80)-<C+130, R+80) 
Y <F)=C+120: X <F> =R+80 
IF F=1 THEN GOTO 110 
LINE (Y <F-1 > , X (F-1 > > - (Y (F> , X ( 

LINE ( Y <F—1)+10,X <F—1)>-(Y(F> 


Vili 






























































PROGRAMMA 


di Osvaldo Contenti 


MSX 



Cos'è i’Autoprogramma Grafico 


un programma che — senza presunzione — rivolu¬ 
ziona il concetto dei software dedicati agli Home 
Computers. 

Infatti, quando utilizziamo un normale programma sappia¬ 
mo sin dall’inizio che questo non modificherà mai nulla di 
sé stesso e per quanto possa essere complesso e varie¬ 
gato mai ci aspetteremmo che lo stesso aggiunga, auto- 
creandole, righe di listato non presenti alla digita. 

Invece «Autoprogramma Grafico» cresce di numeri di li¬ 
nea man mano che lo usate, traducendo in righe Basic 
tutto quello che state disegnando sul video. 

Ovviamente, quando avrete deciso di dare fine al disegno, 
tutte quelle linee di programma saranno perfettamente re¬ 
gistrabili come se fossero sempre appartenute al pro¬ 
gramma madre. 

Quindi l’Intelligenza Artificiale entra di prepotenza nella 
casa degli HOME (scusate il bisticcio), e non a caso a 
proporvelo è LIST, così mentre le riviste concorrenti vi 
sommergono solo di prove Hardware o dell’ennesimo «fi¬ 
letto» al calcolatore, noi vi offriamo delle brucianti novità 
pronte per l’uso. 


L’evoluzione di un’idea 


Già da qualche mese, assieme all’amico Fabrizio Nicolai 
(il nostro Coordinatore Tecnico), rubando tempo al sonno 
e alle notti romane, avevamo concordato degli appunta¬ 
menti serali. 

In compagnia di PC professionali abbiamo ricercato e stu¬ 
diato diversi interventi di LA. in programmi di varia utilità; 
fra i risultati un «Deduttore di Algoritmi» ancora in cantie¬ 
re ma di ottima stesura. 

Fu in quelle notti che mi resi conto, attraverso l’analisi 
degli esperimenti compiuti, della mancanza pressoché as¬ 
soluta di software intelligenti ad indirizzo grafico per Ho¬ 
me. 

L’Autoprogramma Grafico era stato sempre un mio sogno 
(anche se non lo chiamavo ancora così), mi sono lanciato 


a capofitto nella nuova impresa e non certo con la sicu¬ 
rezza di riuscire nell’intento. 

Ma gli indugi teorici hanno lasciato la strada alla pratica 
e il risultato è ora al vostro giudizio. 

L’idea portante di tutto il programma è stata di far creare 
dallo stesso elaboratore delle stringhe (nel list sempre 
X(Z)) riproducenti e simulanti perfettamente: numeri di li¬ 
nea con relative istruzioni grafiche che traducessero 
istante per istante le immagini video impostate dall’uten¬ 
te, a questo punto non rimaneva che stampare e far ac¬ 
cettare come veri numeri di linea queste stringhe- 
istruzioni, cosa che avviene puntualmente nel corso del 
programma. 

Detto così tutto appare elementare, ma rispettare la sin¬ 
tassi di ogni istruzione, la lunghezza massima delle linee, 
seguire passo passo per memorizzare con la DRAW tutti i 
movimenti possibili e passare ad un nuovo numero di li¬ 
nea quando occorre (per citare solo parte dell’algoritmo), 
non è stato impegno da poco. 


A chi è indirizzato e a che cosa serve l’APG 

D ’impiego dell’Autoprogramma Grafico è multidire- 
zionale nel senso che può essere sfruttato sia da 
un accanito cultore di videogames (per approntare 
favolosi e complessi sfondi di gioco senza dover prece¬ 
dentemente mappare su carta il disegno per poi faticosa¬ 
mente tradurlo in Basic) che da un professionista che in¬ 
tenda memorizzare in un vero programma i suoi progetti o 
i suoi estemporanei architettonici o geometrici, il tutto an¬ 
che senza conoscere una sola riga di Basic! 

Il risparmio di tempo poi risulta essenziale e quello che 
una volta avreste realizzato in ore e alle volte in giorni, 
ora con l’APG vi verrà reso giusto nel tempo impiegato 
per produrre il disegno in video, un programma che attra¬ 
verso dei semplici MERGE potrà essere collegato a qual¬ 
siasi altro software. 

Lavorando di meno e sprecando minori energie le vostre 
realizzazioni grafiche acquisteranno quella importanza e 
complessità che avrete sempre desiderato, ma che non ha 
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mai avuto modo di esprimersi causa la lungaggine della 
traduzione in Basic delle immagini video, un vero balzo di 
qualità per la vostra produzione di immagini che ora può 
prendere il volo. 


Utilizzazioni future dell’APG 


n redazione già si parla di pacchetti software per 
videogames, dove tutto, dalla costruzione degli 
sfondi alla creazione di sprite fino alla loro anima¬ 
zione viene tradotto in programma da relativi APG, avendo 
in mano questi programmi chiunque avrà a disposizione 
un «fai da te» di listati pronti e regalarvi le emozioni di un 
videogame, esclusa la fatica per produrlo. 

Ancora, studieremo degli APG applicati al linguaggio e 
qui la simbiosi con il software didattico avverrà quasi na¬ 
turalmente. 

Ma è ancora troppo presto per dirlo, l’APG è appena nato 
e quindi ha bisogno di ulteriori studi e ricerche di appro¬ 
fondimento per avanzare, nonché dei vostri spunti e sug¬ 
gerimenti che saremo felicissimi di accogliere. 


Tastiera Stick 


È in verità relativamente complessa, ma se pensiamo che 
indirettamente fa produrre un listato che noi stessi realiz¬ 
zeremmo solo in diverse ore, ci rendiamo conto che il gio¬ 
co vale la candela. 

— Le 8 direzioni del tratto 

Possono essere comandate sia da STICK che da TASTIE¬ 
RA, anche nel caso di distacco della «penna», quindi: 

■ Lo STICK (della porta uno) muoveràil tratto nelle 8 di¬ 
rezioni usuali. 

■ I 4 tasti CURSORE imiteranno lo stick nei movimenti: 
in ALTO; in BASSO; a DESTRA e a SINISTRA. 

— Le direzioni diagonali faranno capo ai TASTI FUN¬ 
ZIONE: 

■ FI per dir. in ALTO a SINISTRA. 

■ F2 per dir. in ALTO a DESTRA. 

■ F3 per dir. in BASSO a DESTRA. 

■ F4 per dir. in BASSO a SINISTRA. 

Ogni movimento sarà costantemente seguito da 2 MIRINI- 
SPRITES sovrapposti (di diverso colore) per non perdere 
mai di vista l’ultima posizione raggiunta dal tratto che si 
pone sempre ancor di più nel caso di distacco della pen¬ 
na. 

— Per il DISTACCO della PENNA 

■ Premere il tasto ESC (della tastiera) o il pulsante di 
FUOCO (• FIRE) dello stick, in entrambi i casi ora vi 
esporrete senza disegnare nulla e raggiunta la nuova po¬ 
sizione desiderata premere nuovamente gli stessi ESC o 
FIRE per descrivere un nuovo tratto. 


— Tasti abilitati con PENNA ATTACCATA 

■ Tasto 1: Cambia a vostro piacere il colore del tratto fra 
i 15 consentiti, il colore viene visualizzato da un apposito 
SPRITE posto in alto a destra dello schermo che ne scan¬ 
disce le variazioni seguendo la numerazione usuale dei 
codici colore. 

■ Tasto 2: Accetta e memorizza neH’Autoprogramma il 
colore scelto con il tasto 1, se il tasto 2 non viene premu¬ 
to il tratto cambierà ugualmente colore ma questa varia¬ 
zione non farà parte deH'autoprogramma. Ricordate quin¬ 
di di premere il tasto 2 dopo aver scelto un nuovo colore. 

■ Tasto 3: Crea la funzione PAINT (riempimento figure) a 
cominciare dal centro dei MIRINI-SPRITES. Per farlo fun¬ 
zionare correttamente: premere ESC o FIRE prendere nuo¬ 
va posizione, ripremete ESC o FIRE e solo allora premere¬ 
te il tasto 3. 

— Tasti abilitati con PENNA STACCATA 

■ Tasto 4: Traccia una linea dall’ultimo punto lasciato al¬ 
la nuova posizione raggiunta, tale funzione immessa in 
APG (autoprogramma), in modo M x,y come da DRAW. Per 
attivarla prmere ESC o FIRE raggiungere il punto deside¬ 
rato, quindi premere il tasto 4, ora la penna è riattaccata 
allo schermo. 

■ Tasto 5: Traccia il perimetro di un BOX. Procedere co¬ 
me per il tasto 4. 

■ Tasto 6: Traccia un BOX pieno. Procedere come sopra. 

■ Tasto 7: Traccia una circonferenza. Per realizzarla pre¬ 
mere ESC o FIRE spostarsi di colonna (o a destra o a sini¬ 
stra) e premere il tasto 7, la distanza percorsa sarà relati¬ 
va al raggio del cerchio. Alla stampa della circonferenza 
la penna sarà nuovamente attaccata. 

■ Tasto “(” = shift + 9: Dà lo STOP al disegno e passa 
forzatamente alla STAMPA dell’AUTOPROGRAMMA, con¬ 
dizione che si verifica anche in un altro caso come appro¬ 
fondiremo nel seguente capitoletto. 

La stampa delTAutoprogramma 


Quello che potrete comandare con il tasto “(” (ricordiamo 
che risulta attivo solo con penna attaccata), verrà invari- 
bilmente provocato dal programma stesso ogni 5-6 numeri 
di linea indirettamente prodotti dal vostro disegno. 

È in questa parte del programma (righe 1640-1770) che il 
listato evidenzia tutto il lavorio interno, infatti senza 
preavviso, mentre disegnate, la pagina grafica passerà al 
MODO TESTO zero, visualizzando delle righe di program¬ 
ma a partire dalla riga 2000. 

Ma non fatevi ingannare, in realtà esse non sono ancora 
righe di programma, ma STRINGHE che simulano in ma¬ 
niera precisa le stesse. 

A questo punto l’MSX ha bisogno di voi per mutarle in ve¬ 
re righe di listato, capito il trucco? 

Quindi portare il cursore sul PRIMO NUMERO di LINEA e 
premere RETURN per tutte le linee presentate sullo scher¬ 
mo, fatto questo se date il LIST 2000 vedrete effettiva¬ 
mente le righe far parte «magicamente» del listato. 
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Ora, non vi resta che dare il RUN 2000 per ritornare fulmi¬ 
neamente alla pagina grafica e ritrovarvi il disegno che 
avevate lasciato. 

Questa routine: RETURN per ogni linea e RUN 2000 dovrà 
essere eseguita ogni volta per incamerare la nuova parte 
del programma. 

Naturalmente i numeri di linea del programma verranno 
incrementati ad ogni passaggio, righe che potrete editare 
come quelle normali o non accettare (non battendo RE¬ 
TURN) nel caso ad esempio di un PAINT disastroso, quan¬ 
te volte capita! 

Premendo il tasto per “(” avrete le medesime condizioni, 
ma magari, proprio perché bloccata da voi, vi ritroverete 
anche una sola linea da memorizzare, ma questo è a vo¬ 
stra scelta. 

Nella stampa dell’APG, troverete sempre una strana riga, 
la 165, essa è di importanza fondamentale per la riuscita 
di tutto il programma, questa infatti memorizza tutte le 
variabili che andrebbero perse in seguito aH’immissione in 
memoria di qualsiasi nuova riga di programma, invece, in 
questo modo la 165 rammenta: il colore schermo (S$); il 
colore del tratto (P$); il prossimo numero di linea per 
l’APG (NL); le ultime coordinate del MIRINO (C ed R) e l’ul¬ 
timo colore usato (T). 


Avvio e conclusione del programma 


Dopo il titoletto, scegliere come richiestovi il colore dello 
SCHERMO e il colore del TRATTO, ma ricordo che ambe¬ 
due potranno essere mutati agendo nel corso del pro¬ 
gramma: il primo con un PAINT per l'intero schermo e il 
secondo con i tasti 1 e 2. 

Impostati i colori, il programma partirà visualizzando il MI¬ 
RINO nelle coordinate 100,100 e lo SPRITE segnala¬ 
tore. 

Quando deciderete di dare termine al vostro disegno pre¬ 
mete il già citato tasto “(”, battere RETURN per ogni linea 
e mutare la riga 10000 in: 

10000 GOTO 10000. 

Ora se volete registrare PROGRAMMA ed AUTOPRO¬ 
GRAMMA fatelo pure, ma se volete mantenere solo il di¬ 
segno battete il comando: DELETE 10-1810 ottenendo il 
solo AUTOPROGRAMMA pulito, quindi registrate normal¬ 
mente. 


Non rinumerate il listato 


Lo rovinereste irreparabilmente e anche se vi pare strana 
la indicazione della linea 10000 che riporta ad un GOTO 
165, lasciatela com’è, potrete rinumerare il tutto (senza 
pregiudicare nulla) solo dopo aver completato il disegno 
in fase di registrazione su nastro o disco. 


Avvertenze e consigli 


— Ogni volta che premete un tasto otterrete il «ricevuto» 
da un segnale acustico, ma non indugiate troppo sui tasti 


(che non siano di movimento) perché potreste causare 
delle inutili ripetizioni nell’APG. 

— I tasti funzione: FI, F2, F3 ed F4 sono stati opportuna¬ 
mente ridefiniti, quindi i comandi relativi vanno solo digi¬ 
tati. 

— Mentre disegnate avvertirete ogni tanto un BEEP, esso 
vi segnala che l’elaboratore ha completato una riga 
dell’APG e ne sta cominciando un'altra. 

— Se dopo aver memorizzato alcune righe di APG avete 
digitato un RUN senza numero di linea, interrompete il 
programma e battete RUN 2000, non avrete causato nes¬ 
sun danno al programma. 

— Per cancellare tratti non desiderati impostate il colore 
di sfondo ripassando il segno o fate uso del PAINT. 

— Il programma ha fine solo con un MEMORY FULL (se 
non lo concludete prima), ma niente paura, per l’APG c’è 
posto per un listato di lunghezza colossale, ho fatto uso 
di soli 7000 Bytes. 

— Tutte le REM possono essere omesse nella digita. 


Conclusione 


Qualcuno potrebbe obbiettare: Perché creare un AUTO¬ 
PROGRAMMA quando per memorizzare una immagine 
possiamo usare un BLOAD in VRAM o un caricamento in 
FILE? 

La risposta è semplice, primo, perché un’immagine com¬ 
pressa in FILE o tratta dalla VRAM è molto difficile da 
mutare per una qualsiasi variazione anche minima del di¬ 
segno, mentre con un listato tutto risulta davvero elemen¬ 
tare, secondo, perché la comprensione di questa grafica 
intelligente ci apre le porte a panorami ben più vasti di 
una codifica in file, il discorso in effetti si apre ora sulle 
possibili aree di sfruttamento di una simile idea. 
L’intelligenza artificiale non è solo una moda, ma una 
realtà che ci investe a ondate, un’appassionante ricerca 
che vivremo in un futuro molto prossimo, una realtà che 
possiamo cominciare a comprendere anche attraverso il 
nostro piccolo, ma prezioso MSX! 



VARIABILI PRINCIPALI 

Gì 

se G = 1 = inizio disegno; 
se G = 2 = disegno già iniziato 

Z 

indice array stringhe conteneti le righe 
simulate 

XS(Z) 

= contiene le linee APG simulate 

C,R 

scoordinate mirino 

NL 

= numero di linea per APG 

K$ o KK$ = richiami da tastiera 

J o JJ 

= direzioni stick 

We V 

= precedente ed ultima direzione di tratto 


scelta 

L 

= lunghezza di una funzione DRAW 

F $ 

funzione DRAW 

T 

= colore tratto 

RC 

= raggio cerchio 

CO,RI 

scoordinate di arrivo per circle; line b o 


bf; M x,y 

CI e C2 

= colore primo e secondo sprites-mirini 

PoPP 

srichiamao tasto ESC o pulsante FIRE 
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STRUTTURA DEL PROGRAMMA 

40/130 

titolo e input per colore schermo e tratto 

160/320 

iniz. screen 2 + sprites cursori e sprite 
segnala-colore 

165 

linea non presente nella digita ma che 
sarà creata dal programma stesso 

330/360 

stringhe primi 2 numeri di linea APG 

400/440 

input per stick e tastiera con penna at¬ 
taccata 

470/620 

le 8 direzioni di tratto con penna attac¬ 
cata 

650 

stampa del tratto eseguito 

680/750 

routine dopo richiamo tasto ESC o FIRE 

780/840 

input per stick e tastiera con distacco 
penna 

850/920 

le 8 direzioni di tratto con distacco pen- 

930 

mirini-sprites seguenti gli spostamenti 

950/1020 

routine riattacco penna 

1050 

tracciamento linee 

1080/1130 

mem. funzione LINE B o BF in APG 

1160/1190 

mem. funzione CIRCLE in APG 

1220/1250 

mem. funzioni DRAW in APG 

1290/1300 

mem. funzioni DRAW + incremento nu¬ 
mero linea per APG 

1330/1340 

solo cambio colore tratto 

1370/1440 

mem. colore scelto in APG 

1470/1510 

mem. con incremento numero di linea 
per colore scelto n APG 

1540/1610 

mem. funzione PAINT con incremento 
numero di linea in APG 

1640/1770 

preparazione e stampa APG 

da 2000 in 

poi APG non presente alla digita ma che 

verrà creato in seguito dal programma stesso 

10000 linea che si indirizza ad una linea per ora ine- 

sistente (la 165) ma che verrà creata in seguto dal 

programma stesso 


Un esempio di programma 
scritto interamente dall’APG 

Per dare prova delle qualità del nostro APG vi proponiamo 
un listato su cui il programmatore non ha modificato né 
aggiunto o alterato qualsiasi riga di programma. Il solo in¬ 
tervento che è stato effettuato è stato quello di un RE- 
NUM generale che fa partire il programma dalla riga 10 
anziché dalla riga 2000. L’immagine che apparirà sullo 
schermo a seguito della digita, sarà quello di una veduta 
stradale con uno sfondo di caseggiati finemente disegna¬ 
ti. 

In conclusione, per i cultori deM’immagine, proponiamo 
l’inserimento di 2 numeri di linea che agendo sul VDP rie¬ 
scono a far stampare l’intera immagine, non più pezzo per 
pezzo come da disegno eseguito, ma in una fulminea vi¬ 
sualizzazione di tutta l’area grafica occupata. 

I numeri di linea sono i seguenti: 

15 VDP(1) = VDP(1)AND&HBF 
695 VDP(1) = VDP(1)OR&H40 


10 ’AUTOPROGRAMMA GRAFICO 

2 0 »- 

30 *- di O.Contenti - 

40 SCREEN 1 :KEYOFF:CLS 

50 LOCATE 0,10:PRINTTAB(4);”Autoprogram 
ma Grafico”:PRINT:PRINTTAB(5);"di:Osval 
do Contenti”:PRINT:PRINTTAB(10);”Ediz. L 
IST” 

60 FORTM=1T05000:NEXTTM: CLS 
70 CLEAR 1000 

80 PRINT:PRINT”Colore schermo (1/15) 

90 INPUT SS 

100 IF VAL(SS)<1ORVAL(SS)>15THEN CLS:GO 
TO 80 

110 PRINT:PRINT”Colore tratto (1/15) 

120 INPUT PS 

130 IF VAL(PS)<1ORVAL < PS > >15THEN CLS:GO 
TO 110 

140 REM SCHERMO GRAFICO 

150 REM - 

160 SCREEN 2,0,0:COLOR VAL(PS),VAL(SS) , 

VAL(SS):CLS 

170 G=1 :Z=1:H=0 

180 PLAY ”V6L64O4S0M5000” 

190 IF Y=1 THENGOTO 220 
200 T=VAL(PS):C=100 :R=100 
210 REM SPRITE-COLORE 

220 FOR TM=14336 TO 14343:VPOKE TM.255: 
NEXT TM:PUTSPRITE 0,(247,0),T 
230 REM SPRITES-CURSORI 

240 IF VAL(SS)>1 AND VAL(SS><14 THEN CI 
=1:C2=15:GOTO 260 

250 IF VAL(SS)=1 THEN C1=2:C2=15 ELSE C 
1=1:C2=4 

260 DATA 0,0,0,238,0,0,0,0,16,16,16,0,1 
6, 16, 16,0 

270 FOR TM=14344 TO 14359 
280 READ A 

290 VPOKE TM,A:NEXT TM 

300 PUTSPRITEI, (C-3,R-4),CI :PUTSPRITE2, 
(C-3,R-4), C2 
310 DIM XS(9) 

320 IF Y=1 THENGOTO 350 

330 XS(0)=”2000 SCREEN 2,0,0:COLOR ”+P$ 
+",”+SS+”,”+SS+”:CLS” 

340 NL=2010 

350 CS=STRS(C):RS=STRS(R) 

360 XS(Z)=STRS(NL)+CHRS(32)+"DRAV ”+CHR 
S(34)+”BM"+ MIDS(CS,2,LEN(CS))+”,”+MIDS C 
RS,2,LEN(RS)) 

370 KEY1,"S”:KEY2,”%”:KEY3,”&”:KEY4,”'” 
380 REM TASTIERA E STICK 

390 REM - 

400 P=STRIG <1):KS=INKEYS:J = STICK(1) 

410 ON P+2 GOTO 680,420 
420 IF KS=””THENGOTO440 

430 IF ASC(KS)<27 OR ASC(KS)>51 THEN GO 
TO 440 ELSE ON ASC(KS)-26 GOTO 680,510, 
590,470,550,440,440,440,440,610,490,530 
,570,1640,400,400,400,400,400,400,400,4 
00,1330,1370,1540 

440 IF J=0 THEN GOTO 400 ELSE ON J GOTO 
470,490,510,530,550,570,590,610 
450 REM LE 8 DIREZIONI 
460 REM - 

470 IFR=0THENGOTO400ELSEV=V: V=l: IFVOVT 
HENGOTO1220 

480 L=L+1:FS=”U”:R=R-1:GOTO 650 

490 IFR=0ORC=246THENGOTO400ELSEV=V:V=2: 

IFV< >VTHENGOT01220 
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500 L=L+1:F$=”E”:R=R-1:C=C+1:GOTO 650 
510 IFC=246THENG0T04 00ELSEV=V:V=3 : IFV< > 
VTHENGOT01220 

520 L=L+1:FS=”R”:C=C+1: GOTO 650 

530 IFC=2460RR=191THENGOT0400ELSEV=V:V= 

4: IFV< > VTHENGOTO1220 

540 L=L+1:F$="F":C=C+1:R=R+1:GOTO 650 
550 IFR=191THENG0T0400ELSEV=V:V=5:IFVO 
VTHENGQTD1220 

560 L=L+1 :FS=”D”:R=R+1: GOTO 650 

570 IFC=0ORR=191THENGOT0400ELSEV=V :V=6: 

IFV<> VTHENGOTO1220 

580 L=L+1:F$="G”:C=C-1:R=R+1: GOTO 650 
590 IFC=0THENGOTO400ELSEV= V: V=7 : IFVOVT 
HENGOTO1220 

600 L=L+1:F$=”L”:C=C-1: GOTO 650 

610 IFC=0ORR=0THENGOTO400ELSEW=V:V=8:IF 

VOVTHENGOT01220 

620 L=L+1:FS=”H”:C=C-1:R=R-1:GOTO 650 
630 REM STAMPA TRATTO 
640 REM - 

650 PSET(C,R),T:PUTSPRITEI, (C-3,R-4),C1 
: PUTSPR I TE2 , (03 , R-4 > , C2 : G0T04 00 
660 REM Tasto FI RE o ESC 

670 REM - 

680 PLAY”EFC”: IF LEN(XS(Z))>=150 OR H=1 
THEN GOTO 710 

690 IF FS=””ORL=0 THEN GOTO 750 . 

700 LS=STRS(L):XS(Z)=XS (Z)+FS+MIDS(LS,2 

,LEN(LS)):H=0: GOTO 750 

710 IF H=1ANDL=OTHENGOT0750 

720 IF H=1ANDL> OTHENGOTO 740 

730 XS (Z)=XS(Z)+CHRS(34) 

740 Z=Z+1:NL=NL+1:LS=STR$(L):XS(Z)=STRS 
(NL>+” DRAV ”+CHRS(34)+FS+MIDS(LS,2,LEN 
(LS)):H=0 

750 FORTM=1T0500:NEXTTM:GOTO780 
760 REM DISTACCO PENNA 

770 REM - 

780 CO=C:RI=R 

790 PP=STRIG(1):KKS=INKEYS:JJ=STICK(1) 
800 ON PP+2 GOTO 960,810 
810 IF KKS=””THENG0T0840 

820 IF ASC(KKS)>51 AND ASC(KK$><56 THEN 
ON ASC(KKS)-51 GOTO 970,1080,1090,1160 
830 IF ASC(KKS)<27 OR ASC(KKS)>39 THEN 
GOTO 840 ELSE ON ASC(KKS)-26 GOTO 960,8 
70,910,850,890,840,840,840,840,920,860, 
880,900 

840 IF JJ=0 THEN GOTO 790 ELSE ON JJ GO 
TO 850,860,870,880,890,900,910,920 
850 IFR=0THENGOTO790ELSER=R-l:GOTO930 
860 IFR=0ORC=246THENGOTO790ELSER=R-1 :C= 
C+l:GOTO930 

870 IFC=246THENGOTO790ELSEC=C+1 :GOTO930 
880 IFC=2460RR=191THENGOT0790ELSEC=C+1: 
R=R+1:GOTO930 

890 IFR=19lTHENGOTO790ELSER=R+1 :GOTO930 
900 IFC=OORR=19lTHENGOTO790ELSEC=C-1:R= 
R+l:GOT0930 

910 IFC=OTHENGOT0790ELSEC=C-1 :GOTO930 
920 IFC=OORR=OTHENGOT0790ELSEC=C-1 :R=R- 
1 

930 PUTSPRITEI, (C-3,R-4),CI:PUTSPRITE2, 

(C-3,R-4),C2 : GOTO790 

940 ’AGG.NUOVE COOR.CURSORE 

950 ’O FUN. Mx,y = LINE- 

960 BS="BM”: GOTO 980 
970 BS=”M”: GOTO 1050 

980 RR$=STRS(R):CCS=STRS(C):IF LEN(XS(Z 
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) )> = 150 OR H=1 THENGOTO 1000 
990 XS(Z)=XS(Z)+BS+MIDS(CCS,2,LEN(CCS)) 
+*’ , "+MIDS (RRS, 2, LEN(RRS) ) : GOTO 1020 
1000 IF H=0 THEN XS (Z)=XS(Z)+CHRS(34) 
1010 Z=Z+1:NL=NL+1:XS(Z)=STRS(NL)+" DRA 
V "+CHRS(34)+BS+MIDS(CCS,2,LEN(CCS))+”, 
”+ MI DS(RRS,2,LEN(RRS)) 

1020 PLAY”F”:P=0:KS=””:J=0:V=0:V=0:L=0: 
G=1:H=0:IF Z>=4 THENGOTO 1640 ELSE FORT 
M=1T0500:NEXTTM:GOTO 400 
1030 REM FUNZIONE LINE 

1040 REM - 

1050 LINE(CO,RI)-(C,R),T:GOTO980 
1060 REM AGG.FUN.LINE B o BF 

1070 REM - 

1080 BS=”B”: LI NE(CO,RI)-(C,R),T,B:GOTO 
1100 

1090 BS="BF”: LINE(CO,RI)-(C,R),T,BF 
1100 IF H=0 THEN XS(Z)=XS(Z)+CHRS(34) 
1110 COS=STRS(CO):RI$=STRS(RI):CC$=STRS 
(C):RRS = STRS(R):TS = STRS(T):Z = Z+1: NL = NL + 
1 : H= 1 

1120 XS(Z)=STRS(NL)+” LI NE(”+MIDS(COS,2 
,LEN(COS))+”,”+MIDS(RIS,2,LEN(RIS))+”)- 
("+MIDS(CCS,2,LEN(CCS))+”,”+MIDS(RRS, 2, 
LEN(RRS))+"),"+MIDS(T$,2,LEN(TS))+”,”+B 
S 

1130 GOTO 960 

1140 REM AGG.FUN.CIRCLE 

1150 REM - 

1160 IFH=0THEN XS(Z)=XS(Z)+CHRS(34) 

1170 RC=ABS(CO-C):CIRCLE(CO,RI) , RC, T 
1180 RCS=STRS(RC):COS=STRS(CO):RIS=STR$ 
(RI):TS=STRS(T):Z = Z+1:NL = NL + 1 : H=1 
1190 XS (Z)=STRS(NL)+” CIRCLE(”+MIDS(COS 
,2,LEN(COS)>+”,"+MIDS(RIS,2,LEN(RIS))+” 
),"+MIDS(RCS,2,LEN(RCS))+”,”+MIDS(TS,2, 
LEN(TS)):GOT0960 
1200 REM AGG.FUN.DRAV 

1210 REM - 

1220 IF G=1 THEN G=2:GOTO 1250 

1230 IF LEN(XS(Z))>=150ORH=lTHENGOTO129 

0 

1240 LS=STRS(L):XS(Z)=X$(Z)+FS+MIDS(LS, 
2,LEN(LS)):L=0:H=0 

1250 ON V GOTO 480,500,520,540,560,580, 
600,620 

1260 REM I NCR.NUM.DI LINEA 
1270 REM E AGG.FUNZ.DRAV— 

1280 REM - 

1290 PLAY”B”:IFH=0THEN XS(Z)=XS(Z)+CHRS 
(34) 

1300 Z=Z+1:NL=NL+1:LS=STRS(L):XS(Z)=STR 
S(NL)+CHRS(32)+”DRAV ”+CHRS(34)+FS+MIDS 
(LS,2,LEN(LS)):L=0:H=0:IF Z>=4 THENGOTO 
1640 ELSE 1250 
1310 REM CAMBIO COLORE 

1320 REM - 

1330 PLAY "A”:T=T+1:IFT=16THENT=0 
1340 TS=STRS(T):PUTSPRITE 0,(247,0),T:G 
OTO 400 

1350 REM AGG.COLORE 
1360 REM - 

1370 IF LEN(XS(Z))>=150 OR H=1 THEN GOT 
O 1420 

1380 IF L=0 THEN1390ELSE1400 

1390 PLAY”DB”:XS(Z)=XS(Z)+”C”+MIDS(TS, 2 

,LEN(TS)):GOTO 1410 

1400 PLAY”DB”:LS=STRS(L):XS(Z)=XS(Z)+FS 
+MIDS(LS,2,LEN(LS))+”C”+MIDS(TS,2,LEN(T 
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AUTOPROGRAMMA GRAFICO 


LIST 


S ) ) : GOTO 1410 

1410 L=0:V=0:V=0:H=0:G=1: GOTO 400 

1420 IFH=lANDL=0THENGOTO1490 

1430 IFH=1ANDL>OTHENGOT01510 

1440 IFH=0ANDL=0THENGOTO1480ELSE1500 

1450 REM I NCR.NUM.LINEA E 

1460 REM AGG. COLORE 

1470 REM - 

1480 XS (Z)=XS(Z)+CHRS(34) 

1490 PLAY”DB":Z=Z+1:NL=NL + 1:X$(Z)=STRS < 
NL)+" DRAV "+CHRS <34)+”C”+MID$(T$,2,LEN 
(TS)): IF Z> =4 THENGOTO 1640 ELSE 1410 
1500 XS(Z)=XS(Z)+CHRS(34) 

1510 PLAY”DB”:Z=Z + 1:NL=NL+1:LS=STR$ <L): 
XS (Z)=STRS(NL)+" DRAV "+CHRS(34)+FS+MID 
$ <L$,2,LEN(LS))+”C”+MIDS(TS,2,LEN(TS)): 
IF Z>=4 THENGOTO 1640 ELSE 1410 
1520 REM AGG.FUN.PAINT 
1530 REM - 

1540 PLAY”B”: IF H=0ANDL=0 THENGOTO 1570 
1550 IFH=0ANDL> OTHENGOTO 1600 
1560 IF H=1ANDL>0THENGOTO1610ELSE1580 
1570 XS(Z)=XS(Z)+CHRS(34) 

1580 PAINT <C,R),T:Z=Z+1:NL=NL+1:CC$=ST 
RS(C):RRS=STRS(R):TS=STR$(T):XS(Z)=STRS 
(NL)+” PAINT (” + MI DS(CCS,2,LEN(CCS)> +”, 
”+ MIDS(RRS,2,LEN(RRS))+”),”+MIDS <TS,2,L 
EN(TS)):V=0:V=0:G=l: H=1 : L=0 
1590 IF Z>=4 THENGOTO 1640 ELSE 400 
1600 LS=STRS(L):XS(Z)=XS(Z)+FS+MIDS(L$, 
2,LEN(LS)): GOTO 1570 

1610 LS = STRS(L):Z=Z+1:NL=NL+1 : XS(Z)=STR 
S(NL)+” DRAV ”+CHRS(34)+FS+MIDS(LS,2,LE 
N (LS)): GOTO 1570 
1620 ’ STAMPA AUTOPROGRAMMA 

1630 ’ - 

1640 SCREEN 0:COLOR 15,4,4:CLS 

1650 IF H=1 THENGOTO 1690 

1660 IF L=0 THENGOTO 1680 

1670 LS=STRS(L):XS(Z)=XS(Z)+FS+MIDS(LS, 

2,LEN(LS))+CHRS(34): GOTO 1710 

1680 XS(Z)=XS(Z)+CHRS(34):GOTO1710 

1690 IF L=0 THENGOTO 1710 • 

1700 LS=STRS(L):Z=Z+1:NL=NL+1 :XS(Z)=STR 
$(NL)+” DRAV "+CHRS(34)+FS + MIDS(LS, 2, LE 
N (LS))+CHRS(34): GOTO 1710 
1710 CCS=STRS(C):RRS=STRS(R):NL=NL+1 :NL 
S=STRS(NL):T$=STRS(T) 

1720 XS(8)=”165 OLEARI000:SS~”+CHRS(34) 
+SS+CHRS(34)+” : PS=”+CHRS(34)+PS+CHRS(34 
)+”:NL=”+MIDS(NLS,2,LEN(NLS))+»:C=”+MID 
S(CCS,2,LEN(CCS))+”:R=”+MIDS(RRS,2,LEN( 
RRS))+”:T=”+MIDS(TS,2, LEN(TS))+” : Y=l” 
1730 LOCATE 0,0:PLAY”E" 

1740 FOR S=0 TO Z 
1750 PRINTXS(S) 

1760 NEXT S 
1770 PRINTXS(8) 

1780 END 

1790 'LISTATO AUTOPROGRAMMA 
1800 ’ (dalla linea 2000) 

1810 ’===================== 

10000 GOTO 165 


■ la tua rivista 



ESEMPIO DI A.P.G. (Autoprogramma 
grafico) ELABORATO COMPLETAMEN¬ 
TE DAL COMPUTER. 


10 SCREEN 2,0,0:COLOR 14,1,1:CLS 
20 DRAV "BM100,100BM0,127R12F8R2” 

30 PAINT (22,135),14 
40 DRAV "R224BM0,127U6R12” 

50 DRAV "BM12,121F8R226D6BM236,130” 

60 PAINT (236,130),14 

70 DRAV ”RI0U1C15U34L12U7L59D6L57U26L30 
D18L31U7L39D6L18D33R7D1L4R9F8R226U9BM21 
9,126” 

80 PAINT (219,126),15 

90 DRAV ”BM219,126BM174,88C7D5L55U93R12 
7D94L11U7L61D3BM201,86” 

100 PAINT (201,86),7 

110 DRAV "BM102,67C8U20R2L1D20L1R2U18D8 
R1U1L2U2R2U5L1U1R1D2L1D1L2D4L1H1U1H1U1H 
1U4BM104,51R2E1U1E1U3BM102,62L1D1L1D1L1 
D3R2U3R2D1L3D1R5U2D1F1D1L7H1R5BM98,45” 
120 DRAV ”C2” 

130 DRAV ”BM98,45L1H1U1L2U2H1U2R1U1H1U1 
R1U3R2U1R1E1U1E1U1E2U2E1R1F1R1F1R1F1D1F 
1D1R1F1D1F1D1G1D1F2D3F1D1G1D1G1L1G1L1D1 
G1U1H1L1G2L2H1L1H1L1H1L1BM104,36” 

140 PAINT (104,36),2 

150 DRAV "BM119,0C1D67U67BM176,87C4U65R 
47BM231,87U65L50D65L5U11BM178,86” 

160 PAINT (178,86),4 

170 DRAV ”BM178,86L2D7E5U5BM178,89” 

180 PAINT (178,89),4 

190 DRAV ”BM231,94U16BM133,67C11R1” 

200 LINE(134,67)-(158,32),11,BF 
210 DRAV "BM158,32” 

220 DRAV "BM158,32C13L24D36R25U36L26D36 
R14L1R1L1R1U36L1D37L14D2R29U2L22R8L1U18 
D1U1L12R25BM182,23” 

230 LINE(182,23)-(230,87),13,BF 

240 DRAV "BM230,87C11BM185,85R45BM186,2 

5” 

250 LI NE(186,25)-(208,81), 11,B 
260 DRAV ”BM208,81” 

270 DRAV ”BM208,81BM212,81U56D56BM216,8 
1U56D56BM220,81U1D1U56C11BM212,28R8D3L8 
D3R8D3L8D3R8D3L8D3R8D3U1D1L8D3R8D3L8D3R 
8D3L8D3R8D3L8D3R8D3L8D3R8BM190,56” 

280 DRAV ”U1R1D1L1U1BM119,68C15D28BM84, 
85C14U4R35D4L35U1R34U1L34U1R34BM87,68C8 
D7U75D80L4D5L25U7L41D6L17U84R87D14BM46, 
1” 

290 PAINT (46, 1) , 8 
300 DRAV ”BM39,30” 

310 DRAV ”BM39,30C14L1” 

320 CIRCLE(38,30) , 13, IO 
330 DRAV ”BM25,30R26D1C8” 

340 LINE(51,31)-(22,47),8,BF 
350 DRAV "BM22,47” 

360 DRAV "BM22,47U13R3C14BM37,29” 

370 PAINT (37,29),10 
380 DRAV ”BM25,33” 

390 LINE(25,33)-(51,77), 10, BF 
400 DRAV ”BM51,77” 

*410 DRAV ”BM51,77BM63,38” 

420 LINE(63,38)-(80,68) , 10, BF 
430 DRAV ”BM80,68BM13,68" 

440 LINE(13,68)-(2,38) , 10, BF 
450 DRAV ”BM2,38” 

460 DRAV ”BM2,38C6BM62,37D32R19U69D1U1D 
37L24D31R6L1U11BM60,55” 
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ESEMPIO DI A.P.G. 

470 PAINT (60,55),6 

480 DRAV "BM14,38D30U30BM81,38D47U2BM81 
,83R6L31BM23,83L23D2R23D1L23R23BM56,86R 
31C6BM73,0D1F1D2F3D4R1F2D2F2R1F1D2F1D1F 
2BM74,3R14BM77,7R10BM80,11R7BM81,15” 

490 DRAV ”R6BM84,19” 

500 DRAV ”BM84,19BM78,3D4R7L1U4BM84,11D 
4BM84,19R3BM88,11C1U11C9BM246,6L136U2E4 
R132D6BM174,5” 

510 PAINT <174,5),9 

520 DRAV ”L55R5C10E5D4R4E4D4R4E4D4R4E4D 
4R4E4D4R4E4D4R4E4D4R4E4D4R4E4D4R4E4D4R4 
E4D4R4E4D4R4E4D4R4E4D4R4E4D4R4BM95,117C 
1R8U2H2U17R2U1H1U2H1L4G1D2L2D2R2” 

530 DRAV ”D17" 

540 DRAV ”BM96,113G2D2BM104,96D1U1D1L3B 
M99,100” 

550 PAINT <99,100),1 

560 DRAV "BM98,98U1L4R10U1L4R4U1L3D6L2U 
6R5D1L7R5U2R2D1L6BM101,96D18BM104,96C15 
U5D11U10D1L2H3R9L6D1R6L8R8L6D1R5D2L4R6U 
5L15D5L10U2R22U1L12R1BM97,92C1R1” 

570 DRAV "LI” 

580 DRAV ”BM97,92R3U1L3BM95,98R1L1R7L4D 
15L2D4L2R1D1R7L1D1L5BM95,116U20R4D3R2D1 
7R1U20L2BM101,98C15D17BM99,99D16BM28,36 
Cl” 

590 DRAV "BM28,36C8D1U1D4R1E1H1E1H1L1BM 
34,40U1D1U3E1F1D3U1L1BM40,40U1D1U4R1F1G 
1F1D1BM46,32D46U42D8U1L24BM25,32C1R1L1R 
26BM25,78R14L14R26BM25,44” 

600 DRAV "BM25,44C11R20D1L20D1R20D31L1U 
30L1U1L1D31” 

610 DRAV ”BM40,48U1D30L2U30L2D30L2U30L2 
D30L2U30” 

620 DRAV "BM30,47R13L13D30R14BM87,87C14 
L1R1L87” 

630 DRAV ”BMO,87C11BM64,54R4L4R16D2L16D 
2R16BM38,24” 

640 CIRCLE<38,24),3,11 
650 DRAV ”BM35,24BM38,24” 

660 PAINT <38,24),11 

670 DRAV ”BM38,24BM92,3C10L92U3R88F3L14 
BM77,2” 

680 PAINT <77,2),10 
690 DRAV ”BM77,107” 

700 GOTO 700 


DIFFONDETE 

OGNI LETTORE 
PROCURI 

UN NUOVO LETTORE 



“CONVIVENZA PACIFICA” 


n esclusiva per voi, lettori di LIST, un nuovo pas¬ 
satempo di genere scacchistico, da giocare sia da 
soli che in compagnia dei vostri amici. 

L’idea di «Convivenza pacifica» è quella di porre un nume¬ 
ro indeterminato di pezzi scacchistici in una normale 
scacchiera di 64 caselle, in modo che nessun pezzo pos¬ 
sa, in una mossa, effettuare una qualsiasi presa. Il gioco 
può avere due varianti: l’una con lo spiegamento dei pezzi 
di un solo colore, che chiameremo versione 
«monocolore», l’altra con lo schieramento di pezzi di colo¬ 
re diverso, che chiameremo versione «bicolore». 

Ognuna delle varianti al gioco ha delle precise regole a 
cui sottostare e dei punteggi per stabilire dei primati. 

Il concetto di primato è insito nei giochi di ispirazione ma¬ 
tematica: quale sarà il numero massimo di pezzi che si 
potranno immettere sulla scacchiera? O in alternativa, 
quale il punteggio massimo acquisibile? 

Le illustrazioni seguenti non risolvono i due problemi, es¬ 
se mostrano dei risultati parziali che richiedono di essere 
superati dai lettori. 

Vediamo questi esempi: 
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monocolore : 1250 bicolore : 1320 P. 

f. A t.B 

REGOLE NEL MONOCOLORE 

1) Sulla scacchiera non possono essere presenti più di un 
RE e più di una REGINA, è permesso invece ampliarne la 
corte con altri Alfieri, Cavalli, Pedoni, Torri. 

2) Si possono aggiungere pezzi supplementari solo dopo 
che siano stati disposti i 16 pezzi classici del gioco degli 
scacchi. 

3) Almeno un alfiere deve poggiare su una casella di colo¬ 
re diverso dagli altri. 

4 ) Il modo di mangiare dei pedoni si intende rivolto verso 
il sud della scacchiera. 

REGOLE NEL BICOLORE 

1) Non si possono aumentare i pezzi sulla scacchiera ol¬ 
tre ai 16 classici per ogni schieramento. 

2) Si possono immettere altri pezzi sulla scacchiera solo 
quando siano in «convivenza pacifica» i RE e le REGINE 
di ogni schieramento. 

3) Un alfiere dello stesso schieramento non può poggiare 
su una casella del medesimo colore del suo paio. 

4 ) Il modo di mangiare dei pedoni si intende rivolto a sud 
per i pezzi neri e a nord per i bianchi. 

Conosciute le regole potete sbizzarrirvi nella ricerca dei 
record di ogni variante e se in casa non possedete delle 
scacchiere, carta e matita prenderanno il loro posto, mar¬ 
cando in una griglia 8x8 la lettera R per il RE, e la D per 
la REGINA, la T per la TORRE, la A per L’ALFIERE, la C 
per il CAVALLO E LA P per il PEDONE; nello stesso modo 
potrete inviare a LIST i primati raggiunti, i migliori dei 
quali saranno pubblicati con il nome dell’autore. 
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hissà quanti di voi, vedendo le varie trasmissioni 
sulle campagne elettorali primaverili, hanno ammi¬ 
rato le favolose proiezioni Doxa dove venivano 
rappresentati in un unico «tortino» tutti i partiti politici, a 
ciascuno dei quali veniva assegnata una «fetta» colorata 
differentemente dalle altre. Ebbene, perché accontentarsi 
di vedere questi famosi «Pie Charts» (così vengono chia¬ 
mati dagli inglesi) soltanto in televisione? Perché non rap¬ 
presentare, invece della percentuale dei verdi al Parlamen¬ 
to, anche la ripartizione delle spese condominiali, o le en¬ 
trate annuali mese per mese? Ancora una volta il piccolo 
mostriciattolo grigio può aiutarci a risolvere il problema: 
ecco dunque, per la gioia dei vostri occhi, un elegantissi¬ 
mo programma per diagrammi a torta, creato sfruttando 
al massimo le notevoli possibilità grafiche del piccolo 
Prodest. 

Prima di passare alle spiegazioni sull’uso del programma, 
raccomandiamo ancora una volta ai lettori di fare molta 
attenzione nella digitazione del listato; rispettate anche 
gli spazi nelle righe di «PRINT», e badate ai nomi delle va¬ 
riabili, spesso infidi e traditori!!! Se comunque non volete 
affaticare troppo i polpastrelli, vi ricordiamo che il pro¬ 
gramma è disponibile in redazione. 

L’uso di PIE CHART è molto semplice e alla portata di tut¬ 
ti, neofiti e non. Le opzioni disponibili appena dato il RUN 
sono 5, richiamabili con la sola pressione del tasto corri¬ 
spondente. Come al solito, analizziamole in sequenza. 




JJ GEN 16.8* 


K FEB 12.7* MAR 4.5* 

X MAG 12.7* % GIU 29.1* 


1 • Inserimento dati 

Permette di inserire i valori da visualizzare (massimo 15) 
con le loro rispettive etichette. Un’etichetta è una parola o 
una lettera associata al valore in questione, e ne permette 
l’identificazione (ad esempio: GEN 19.87, FEB 34.5, ecc.). 
Per scegliere il valore da inserire fate spostare il simbolo 
”>” con i tasti di cursore e premete la barra spaziatrice. 
A questo punto verranno richieste, in sequenza, l’etichetta 
ed il valore associato. Le richieste sono normali INPUT, 
quindi battete ENTER per inserire il dato. Avvertiamo che 
i dati verranno visualizzati in sequenza dal primo all’ulti¬ 
mo, dove per ultimo si intende l’elemento più in basso. Se 
avete inserito i primi 3 elementi e passate direttamente al 
settimo, il quarto il quinto ed il sesto verranno considerati 
come elementi di valore 0 e senza etichetta. 

Quando avete terminato l’inserimento, premete il tasto 
STOP per tornare al menu principale. 


2 - Cambio PATTERN 

Questa è una interessante opzione che vi permette di 
cambiare il colore ed il modello di riempimento di ciascu¬ 
no degli elementi inseriti. Potete cioè riempire lo «spic¬ 
chio» con quello che volete: lettere, numeri, colore pieno, 
ecc. All’inizio i riempimenti sono definiti dal computer con 
numeri e lettere. Per alterare il modello di un elemento do¬ 
vete posizionarvi con i tasti cursore su è giù su quello de¬ 
siderato, scegliere il carattere di riempimento con i tasti 
cursore destra e sinistra (sono disponibili una quindicina 
di caratteri programmabili predefiniti, più i numeri, le let¬ 
tere e i vari simboli presenti sulla tastiera) e premere lo 
spazio per selezionare. Accanto all’elemento corrispon¬ 
dente verrà stampata una serie di caratteri come quello 
scelto, mentre in basso a destra un piccolo rettangolo si 
riempirà con quel modello, per rendersi conto del tipo di 
disegno che si otterrà. Potete anche cambiare il colore 
del modello, scegliendo tra i tre disponibili. Usate i tasti 
” + ” e Come conferma dell’operazione avvenuta, la 
stringa dei caratteri selezionabili cambierà colore. 

Per tornare al menu principale premete STOP. 
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3 - Esecuzione diagramma 

Crea il diagramma basandosi sui dati precedentemente 
inseriti. Una volta terminato il disegno, gli elementi ver¬ 
ranno visualizzati in fondo allo schermo secondo il forma¬ 
to selezionabile dal menu principale premendo la barra 
spaziatrice: SOLO ETICHETTA, ETICHETTA + VALORE, 
ETICHETTA + PERCENTUALE, SOLO VALORE. A secon¬ 
da del formato scelto potranno essere visualizzati più o 
meno caratteri e numeri. Il massimo consentito per le eti¬ 
chette, in ogni caso, è di 10 caratteri. 

Alla fine della visualizzazione potete ottenere l’output su 
stampante (DM 90) della videata, semplicemente premen¬ 
do il tasto ACC. Per tornare al menu principale un tasto 
qualsiasi. 



4r MAGI 3.7X X MFN 7.8*/. % ARCH 7.27. 

« FILO 2. 1/ :: BOH? 28.17. 


4 • Inizializza variabili 

Cancella tutti i dati presenti in memoria, compresi i pat- 
terns. Ricordiamo che il numero dell’elemento più basso 
inserito tramite l’opzione 1 è cancellabile solo mediante 
questo comando. 


5 ■ Fine lavoro 

Ferma il programma, ritornando al BASIC 128. 

Come avete visto, l’uso di PIE CHART è veramente imme¬ 
diato. Il programma è come al solito «smanettabilissimo», 
in quanto costituito esclusivamente da subroutines «farci¬ 
te» di REM (visto che parliamo di torte, «farcite» e proprio 
la parola adatta!!!). Riguardo ai caratteri programmabili 
predefiniti, potete alterarli a piacimento, così come potete 
variare contenuto e lunghezza della stringa, definita alla 
linea 40 e contenente i patterns disponibili. Le variabili 
principali sono definite alla linea 50 (i vettori sono dimen¬ 
sionati a 16 anziché a 15) e sono: DAT (valori numerici), 
LBL$ (etichette), CHS (patterns), CL$ (colori associati) e 
PMODS (modo di visualizzazione valori). 

Il programma si presta molto a migliorie e perfezionamen¬ 
ti, che non abbiamo inserito per ragioni di tempo e di spa¬ 
zio. Vi esortiamo ancora una volta ad inviarci i vostri con¬ 
sigli ed anche, perché no, i programmi modificati. Buon 
lavoro, dunque, ma prima di tutto buon divertimento con 
PIE CHART! 



INGE 30.27. >. 


Gl UR 


MAGI 3.7/ X MFN 7.3/ % ARCH 7.S/ # 

rii o 8 . 17 - :: roh? 28.17 « 


LIST 1 


1 REM »««*«*««««**»***■*■«*** 

2 REM * PIE CHART V 1.0 » 

3 REM * BY BETASOFT * 

4 REM * GIULIO VANNINI * 

5 REM « ANGELO COCCETTINI « 

6 REM * COPYRIGHT LIST 1987 « 

7 REM *********************** 

8 REM 

IO CONSOLE , , , , 2 :SCREEN ,,0:CLEAR ,,16 
20 GOSUB 1640 

30 PATS-” ”:FOR Q=0 TO 15:PATS=PATS+GRS( 
Q):NEXT Q 

40 PATS«PATS + ”1234567890ABCDEFGHIJKLMNOP 
QRSTUVWXYZC ] ( ) !$*/.&/( )=?' ’ 3 + *' , ; . : -_>< ” 
50 DIM DAT(16),LBLS(16),CHS(16),CL(16),P 
MODS(4): ESCI=0 
60 GOSUB 1480 

70 PMODS(1)=”SOLÒ ETICHETTA ”:PMODS(2)»” 
ETICHETTA + VAL”: PMODS (3 ) = "ETICHETTA + 7. 

”:PMODS(4)="SOLO VALORE ”:PMODE=1 

80 DO 
90 CLS 

100 TSTS = ”P I E C H A R T”:GOSUB 1540 
110 BOX(0,0)-(319,17),2 
120 LOCATE 0,8,0 

130 PRINT ”1 - INSERIMENTO DATI” 

140 PRINT ”2 - CAMBIO PATTERN” 

150 PRINT ”3 - ESECUZIONE DIAGRAMMA” 

160 PRINT ”4 - INIZIALIZZA VARIABILI” 

170 PRINT ”5 - FINE LAVORO” 

180 PRINT:PRINT ” MODO VISUALIZZAZIONE: 

”;: COLOR 3:PRINT PMODS(PMODE) 

190 LOCATE 0,18,0:PRINT "SELEZIONA: 1,2, 
3,4 0 CSPACE) (MODO VIS.)” 

200 GOSUB 1410 

210 IF ASCCKYS)=32 THEN PMODE=PMODE+ 1 : IF 
PMODE>4 THEN PMODE=1 
220 LOCATE 24,14:PRINT PMODS(PMODE) 

230 IF ASC(KYS)<49 OR ASC(KYS>>53 THEN G 
OTO 200 

240 N=ASC(KYS)-48 

250 ON N GOSUB 320,590,980,1440,1590 

260 IF ESCI THEN EXIT 

270 LOOP 

280 STOP 

290 REM 
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PIE-CHART 


OLIVETTI PC 128 


LIST 


1340 NUMBER$=STR$ CDAT(Q)):FRM$ = ”#####” 
1350 IF MIDS(NUMBERS,2,1)” THEN NUMBE 
R$ = ”?” + NUMBER$ 

1360 FOR LP=2 TO LEN(NUMBERS) 

1370 IF MID$(NUMBERS, LP, 1) =”. ” THEN LP=L 
P — 1 : GOTO 1390 
1380 NEXT LP 

1390 IF LP<7 THEN MI DS (FRMS , LP , 1 )=”.*’ 
1400 RETURN 

1410 REM ** ATTESA TASTO ** 

1420 KY$=INKEY$:IF KY$=”” THEN GOTO 1420 
1430 RETURN 

1440 REM ** I NIZI ALI ZZA VARIABILI ** 

1450 CLS:LOCATE 0,22 

1460 PRINT ” CONFERMI ? (S/N)” 

1470 GOSUB 1410: IF KYSO”S” THEN RETURN 

1480 FOR Q=1 TO 16 

1490 DATCQ)=0 :LBLS(Q)=”” 

1500 NEXT Q:MCNT=0 

1510 FOR Q=1 TO 15 STEP 3:CL(Q)=1:CLCQ+l 

) =2 :CL(Q+2)=3 :NEXT Q:CL(16)=1 

1520 FOR Q=1 TO 15 : CHS(Q)=MIDS(PATS,Q + l7 

,1):NEXT Q 

1530 RETURN 

1540 REM ** DISEGNA TESTATA ** 

1550 ATTRB 1,1:COLOR 1,0:LOCATE 2,1 
1560 PRINT TSTS:ATTRB 0,0:COLOR 2,0 
1570 BOX(0,0)-(319,17),2 
1580 RETURN 

1590 REM ** FINE LAVORO ** 

1600 CLS:LOCATE 0,22 


PER I LETTORI “AUTORI” 


LIST 5 



INVITO A COLLABORARE 

/ \ 

I lettori-autori, i quali abbiano elaborato programmi originali di loro creazione e di in¬ 
teresse comune o si sentano capaci di crearne e desiderino vederli pubblicati, posso¬ 
no inviarli — purché registrati su supporto magnetico — alla Redazione di ”LIST“, Via 
Flavio Stilicone, 111, Cap. 00175, Roma, tei. 7665094. 

Gli elaborati devono essere corredati di chiare note esplicative sul funzionamento ed 
applicazione del programma. 

Gli Autori si assumono ogni responsabilità suH’originalità dei loro elaborati. 

I programmi accettati e pubblicati saranno compensati in ragione della loro originalità, 
chiarezza e precisione di elaborazione. Saranno preferiti programmi brevi e di facile 
esecuzione. 


Prima di inviare i programmi è preferibile telefonare a «LIST» preannunciando l’invio. 
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OLIVETTI PC 128 


LIST 2 


300 REM ** INIZIO SUBROUTINES ** 

310 REM 

320 REM ** INSERIMENTO DATI ** 

330 CLS:CNT=1:EFLAG=0 

340 TST$=” DATA EDITOR”:GOSUB 1540 
350 FOR X =5 TO 19 

360 LOCATE 3,X,0:PRINT ”EL.X-4 ; ”;LB 
LSCX-4);TAB(23);”VAL:”;DAT(X-4) 

370 NEXT X 

380 LOCATE 1 ,CNT+4,0: COLOR 2:PRINT 
390 DO 

400 GOSUB 1410 

410 LOCATE 1,CNT+4,0:PRINT ” ” 

420 IF ASC(KYS)=10 AND CNT<15 THEN CNT=C 
NT+1 

430 IF ASC(KYS)=11 AND CNT>1 THEN CNT=CN 
T-l 

440 IF ASC(KYS)=32 THEN EXIT 

450 IF ASC(KYS)=2 THEN EFLAG=1: EXIT 

460 LOCATE 1,CNT+4,0:PRINT ”>” 

470 LOOP 

480 IF EFLAG-1 THEN RETURN 
490 IF CNT>MCNT THEN MCNT=CNT 
500 CONSOLE CNT+4,CNT+4 

510 LOCATE 0,CNT+4,0:PRINT ” 

— *1 

520 LOCATE 3 , CNT+4,0 : PRI NT ”EL. CNT; 

: INPUT LBLS(CNT) 

530 IF LEN(LBLS(CNT))>10 THEN GOTO 510 
540 LOCATE 3,CNT+4,0:PRINT ”EL.CNT; 

”;LBLS(CNT);TAB( 23 ) ;”VAL: 

550 LOCATE 27,CNT+4,0: INPUT DATCCNT) 

560 CONSOLE 0,24 

570 LOCATE 3,CNT+4,0 :PRINT ”EL.CNT; 

”;LBLS(CNT);TAB C 23);"VAL:”; DAT(CNT) 

580 GOTO 380 

590 REM ** CAMBIO PATTERN *** 

600 CLS:CNT=1: PS=2:PC0L = 1: PATTERN GRS(O) 

:EFLAG=0 

610 TSTS =” PATTERN EDITOR”:GOSUB 1540 
620 FOR X =3 TO 17 

630 LOCATE 3,X,0:PRINT ”EL.”;X-2;”: ”;LB 
LS (X-2);TAB(23); 

640 COLOR CL(X-2):FOR Q = 1 TO 6:PRINT CHS 

(X-2); :NEXT Q 

650 COLOR 3:NEXT X 

660 ATTRB 1,1 : COLOR 1 : LOCATE 7,21,0:PRIN 
T MIDS CPATS,2,1): LOCATE 10,21,0 :PRINT MI 
DS(PATS,3,1) 

670 ATTRB 1,0:LOCATE 7,22,0: COLOR 3:PRIN 

T ATTRB 0,0 

680 B0XFC250,140)-(300,190 ),1 

690 LOCATE 1,CNT+2,0 : COLOR 2:PRINT 

700 DO 

710 GOSUB 1410 

720 LOCATE 1,CNT+2,0:PRINT ” ” 

730 IF ASC(KYS)=10 AND CNT<15 THEN CNT=C 
NT + 1 

740 IF ASC(KYS)=11 AND CNT>1 THEN CNT=CN 
T-l 

750 IF ASC(KYS)=8 AND PS>2 THEN PS=PS-1 
760 IF ASC(KYS)=9 AND PS<(LEN(PATS)-1) T 
HEN PS=PS+1 

770 IF ASC(KYS)=43 THEN PC0L=PC0L+1:IF P 
COL>3 THEN PC0L=1 

780 IF ASC(KYS)=45 THEN PC0L=PC0L-1:IF P 

C0L<1 THEN PC0L=3 

790 IF ASC(KYS)=32 THEN EXIT 

800 IF ASC(KYS)*2 THEN EFLAG-1:EXIT 


LIST 3 


810 LOCATE 1,CNT+2,0:PRINT 
820 GOSUB 910 
830 LOOP 

840 IF EFLAG=1 THEN RETURN 
850 PATTERN MIDS(PATS,PS,1) , 

860 BOXF(250,140 ) -(300,190),PCOL 

870 COLOR PCOL:LOCATE 23,CNT+2 

880 FOR Q = 1 TO 6:PRINT MIDS(PATS,PS,1); : 

NEXT Q 

890 CHS(CNT)-MIDS(PATS,PS,1):CL(CNT)=PCO 
L 

900 GOTO 690 

910 REM ** STAMPA CARATTERI *■ 

920 LOCATE 4,21,0:COLOR PCOL 
930 FOR W=1 TO 3 

940 ATTRB 1,1:PRINT MIDS(PATS,PS-2+W,1); 

:ATTRB 0,0 
950 PRINT ” 

960 NEXT W 

970 COLOR 3:RETURN 

980 REM ** ESEGUE DIAGRAMMA ** 

990 CLS 

1000 CIRCLE(160,85)151,71,3 
1010 FOR CIL=85 TO 72 STEP-1 
1020 CIRCLE (160,CIL)150,70,5 
1030 NEXT CIL 

1040 CIRCLEF(160,73)149,70,0 

1050 LINE (311,69)-(311,96): LINE (9,69)- 

(9,96 ) 

1060 REM GOTO 2149 
1070 SUM=0:CL=0:AST=0 

1080 FOR Q=1 TO MCNT:SUM=SUM+DAT(Q):NEXT 
Q 

1090 FOR Q=1 TO MCNT 

1100 AFN=AST+(6.28318*(DAT(Q)/SUM)) 

1110 PATTERN CHS(Q) 

1120 SXP=160+150*C0S(AST):SYP=73+71*SIN( 
AST) 

1130 FXP=160+150*COS(AFN):FYP=73+71*SIN( 
AFN ) 

1140 LINE (160,73)-(SXP,SYP),3: LINE (160 
,73)-(FXP,FYP),3 

1150 IF AFN> =0.1 AND AFN<=3.13 THEN LINE 
(FXP,FYP)-(FXP,FYP +13),3 
1160 APT=AST+((AFN-AST)/2): PAI NT(160 + 75* 
COS(APT),73 +35*SIN(APT)),CL(Q) 

1170 AST=AFN 
1180 NEXT Q 

1190 CIRCLE(160,73)149,70,3 

1200 SXP =0 :SYP =20 

1210 FOR Q=1 TO MCNT 

1220 LOCATE SXP,SYP,0 

1230 COLOR CL(Q):PRINT CHS(Q); 

1240 IF PMODE =1 THEN PRINT ” LEFTS(LBL 

S(Q),10); 

1250 IF PMODE=2 THEN PRINT ” LEFTS(LBL 
S(Q),4);” :GOSUB 1330:PRINT USING FRMS 
; DAT(Q); 

1260 IF PMODE =3 THEN PERC=(DAT(Q)/SUM)*l 
00:PRINT ” ”;LEFTS(LBLS(Q),4);” ”;:PRINT 
USING ”##. #7.”;PERC; 

1270 IF PMODE=4 THEN PRINT ” DAT(Q); 
1280 SXP=SXP+13:IF SXP>26 THEN SXP=0:SYP 
=SYP+1+(1 AND MCNT<10) 

1290 NEXT Q 
1300 GOSUB 1410 

1310 IF ASC(KYS)=22 THEN SCREENPRINT 
1320 RETURN 

1330 REM ** FORMATO NUMERO ** 
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quiggle è un programma che non mancherà di in¬ 
contrare il favore degli appassionati di giochi tipo 
«Nim». Lo potremmo definire come un lontano... 
parente del famoso domino. Si gioca in due su una plan¬ 
cia di 8x8 caselle. Ogni giocatore ne ha a disposizione un 
numero illimitato di «piastrelle» il cui disegno è fatto in 
tre modi diversi: a croce, a doppio quarto di cerchio, a 
doppio quarto sfasato di novanta gradi. Ogni tipo di pia¬ 
strelle corrisponde ad un determinato codice di pezzo (X,Y 
o Z). Ciascun giocatore, a turno, deve piazzare a scelta 
uno dei suddetti pezzi, partendo in alto a sinistra. La suc¬ 
cessione delle curve e dei rettilinei determinata dai dise¬ 
gni delle piastrelle crea una specie di «percorso». Via via 
che si aggiungono a turno i pezzi si possono creare degli 
«intrecci», cioè la linea può ritorcersi su un pezzo prece¬ 
dentemente piazzato a continuare attrverso di esso in un 
altra direzione. Scopo del gioco è arrivare per primi 
nell’angolo in basso a destra della griglia di gioco, oppure 


forzare l’avversario ad uscire dalla scacchiera. Senza ave¬ 
re mai visto il gioco questo discorso potrà sembrare in- 
compresibile, ma se digiterete questo breve programma vi 
accorgerete di quanto le regole siano banali. 

Anche se a prima vista vi sembrerà un gioco stupido, pro¬ 
vate a fare qualche partita completa e vedrete che SQUIG- 
GLE richiede tattica, abilità e soprattutto colpo d’occhio 
per non perdere la... strada. Infatti il computer segue auto¬ 
maticamente il percorso, ma voi dovete ricordarvi dove an¬ 
drà messa la pedina successiva. 

Per quanto il funzionamento del programma, non ci do¬ 
vrebbero essere problemi: all’inizio vengono richiesti i no¬ 
mi dei due giocatori; per scegliere un pezzo bisogna solo 
premere il tasto corrispondente alla lettera a fianco di cia¬ 
scuno di essi. Errori e fine partita vengono identificati au¬ 
tomaticamente. Il computer terrà inoltre il conto dei nu¬ 
meri di partite vinte da ciascun giocatore, nel caso essi 
continuino a giocare. 


LIST 1 


1 REM ****************************** 

2 REM * SQUIGGLE PC 128 * 

3 REM * BY BETASOFT - LIST 1987 * 

4 REM * G. VANNINI - A. COCCETTINI * 

5 REM ****************************** 

6 REM 

10 SCREEN 7,4,4:CLS 
20 CLEAR,,13:GOSUB 1110 
30 GOSUB 1030:GOSUB 930 
40 CLS 

50 MVES=0:AX = 1:AY=1:X=1:Y=3:X1 = 1 :Yl = l:PL 
R=START 

60 FOR A=1 TO 8 
70 FOR B=1 TO 8 
80 A(A,B)=0:NEXT B 
90 NEXT A:A(1,1)=1 
100 GOSUB 810 

110 LOCATE 29,5,0:COLOR 2:FRINT " 

":LOCATE 29,5:PRINT P*(PLR) 

120 COLOR 7:BEEP 

130 Z*=INKEY$:IF Z*="" THEN GOTO 130 
140 IF Z$<”X" OR Zf>"Z" THEN GOTO 130 
150 COLOR 2 

160 IF Z$="X" THEN LOCATE Y,X,0:PRINT A* 
( 1): LOCATE Y,X + l,0:FRINT A*(2): A(AX,AY) = 
1 

170 IF Z$="Y" THEN LOCATE Y,X,0:PRINT B* 
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330 IF X1<X THEN X1=X:Y1=Y:AY=AY+1:Y=Y+2 
: GOTO 370 

340 IF X1>X THEN X1=X:Y1=Y:AY=AY-1 :Y=Y-2 
: GOTO 370 

350 IF Y1<Y THEN X1 = X: Y1=Y:AX=AX + 1:X = X+2 
: GOTO 370 

360 IF Y1>Y THEN X1 = X:Y1=Y:AX=AX-1 :X = X~2 
: GOTO 370 

370 IF X<1 OR X >16 OR Y<3 OR Y>18 THEN W 
IN=1 : PLAY "L20MIMIMIL50DQ": GOTO 440 
380 IF X=15 AND Y=17 THEN WIN=2:G0T0 440 
390 IF A(AX , AY)< >0 THEN GOTO 220 
400 MVES=MVES+1 :PLR=PLR+1 
410 IF PLR>2 THEN PLR=1 

420 COLOR 5:LOCATE 28,8:PRINT MVES : COLO 
R 7 

430 GOTO 110 

440 REM *** FINE GIOCO *** 

450 CLS:GOSUB 680 
460 LOCATE 0,14,0 

470 IF WIN=1 THEN COLOR 2:PRINT PS(PLR); 
:COLOR 7:PRINT " perde la partita":PRINT 
"uscendo dal tavolo di gioco..." 

480 IF WIN=2 THEN GOTO 500 
490 GOTO 520 

500 PLR=PLR+1:IF PLR>2 THEN PLR=1 
510 COLOR 2: PRINT PS (F'LR) ; : COLOR 7: PRINT 
" vince in ";MVES;" mosse." 

520 LOCATE 0,17,0:IF WIN=1 THEN PLR=PLR+ 
1 :IF PLR>2 THEN PLR=1 
530 S (F’LR) =S (PLR) +1 

540 COLOR 5:PRINT "PARTITE VINTE FINO AD 
ORA:":PRINT 

550 COLOR 10:PRINT PS(1);:COLOR 7:PRINT 
S(l> 

560 COLOR 10:PRINT PS(2);:COLOR 7:PRINT 
S (2) 

570 LOCATE 0,22,0:PRINT "Vuoi giocare an 
cora ? (S/N)" 

580 ZS=INKEYS:IF ZS="" THEN GOTO 580 
590 IF ZS="N" THEN STOP 

600 LOCATE 0,22,0:PRINT "I giocatori son 
o gli stessi ? (S/N) " 

610 ZS=INKEYS:IF ZS="" THEN GOTO 610 
620 IF ZS="S" THEN GOTO 640 
630 RUN 

640 START=START+1 :IF START>2 THEN START= 
1 

650 LOCATE 0,23: PRINT "OK. . . Inizia " ; PS 
(START) 

660 FOR A=1 TO 1000:NEXT A 
670 CLS:GOTO 50 

680 REM *** DISEGNA TITOLO *** 

690 RESTORE 740 

700 READ A:READ B:IF A=255 THEN COLOR ,4 
: RETURN 

710 LOCATE B+3,A+1,0: COLOR ,0:PRINT " " 
720 LOCATE B+2,A,0:COLOR ,2:PRINT " " 

730 GOTO 700 

740 DATA 6,0,6,1,6,2,7,0,8,0,8,1,8,2,9,2 
,10,0,10,1,10,2,7,4,7,5,7,6,8,4,8,6,9,4, 
9,5,9,6,10,6,11,6,12,6,12,7,7,8,7,10,8,8 
,8,10,9,8,9,9,9,10 

750 DATA 5,12,7,12,8,12,9,12,7,14,7,15,7 

,16,8,14,8,16,9,14,9,15,9,16,10,16,11,14 

,11,15,11,16,7,18,7,19,7,20,8,18,8,20,9, 

18,9,19,9,20,10,20,11,18,11,19,11,20 

760 DATA 5,22,6,22,7,22,8,22,9,22,9,23,6 

,25,6,26,6,27,7,25,8,25,8,26,8,27,9,25,1 

0,25,10,26,10,27,255,255 

770 REM *** TITOLO *** 


COLOR C:LOCATE A,B:PRINT 
E" 

COLOR 7 


*** 


"X 


)BS <1);" Z 
880 LOCATE 
;BS(2);" 
890 LOCATE 
900 LOCATE 
21,8:PRINT 


"; A*(1); " Y 
"; A* < 2);" 


"MUOVE:" 
"TOTALE" 

770 


LOCATE 


780 ATTRB 1,1 
S Q U I G G L 
790 ATTRB 0,0 
800 RETURN 

810 REM *** DISEGNA TAVOLO 
820 BOX (0,0)-(319,199),9 
830 FOR A=3 TO 17 STEP 2 
840 FOR B=1 TO 15 STEP 2 

850 LOCATE A,B,0:F'RINT DS ( 1 ): LOCATE A , B+ 
1,0:PRINT DS(2) 

860 NEXT B:NEXT A 
870 LOCATE 20,1,0:PRINT 
";CS(1) 

20,2,0:PRINT 
" ; CS(2) 

21,5,0:PRINT 
21,8,0:PRINT 
"MOSSE: 0" 

910 A=4:B=19:C=1:GOSUB 
920 RETURN 

930 REM *** INIZIO GIOCO *** 

940 GOSUB 680 
950 LOCATE 0,15,0:INPUT 
PS (1) 

960 INPUT "GIOCATORE 2: 

970 FOR A=1 TO 2:IF LEN 
PS (A)=LEFTS (F'S(A) , 10) 

980 NEXT A 

990 LOCATE 0,20,0:PRINT 
per inizi are." 

1000 PRINT:PRINT PS(START); 
primo..." 

1010 IF INKEYS="" THEN GOTO 1010 
RETURN 

REM *** VARIABILI *** 

DIM AS(2): DIM BS(2):DIM CS(2):DIM D 
DIM A(8,8):DIM S(2) 

AS ( 1 )=GRS(O)+GRS(0) 


"GIOCATORE 1: "; 
";PS(2) 

<F$(A))>10 THEN 


"Premi un tasto 


inizia per 


DIM 

ASC 


PS (2) 

)=GRS(0)+GR 


BS ( 1 > =GRS(1)+GRS(2):BS(2)=GRS(3)+GR 


CS ( 1 >=GRS(5)+GRS(6):CS(2)=GRS(7)+GR 


1020 
1030 
1040 
S (2) 

1050 
S(0) 

1060 
S ( 4 ) 

1070 
S (8) 

1080 DS(1)=GRS(9)+GRS(10):DS(2)=GRS(11)+ 
GRS(12) 

1090 S(1)=0:S(2)=0:START=1 
1100 RETURN 

1110 REM *** CARATTERI GRAFICI *** 

1120 DEFGRS(0)=255,129,129,129,129,129,1 
29,255 

1130 DEFGRS(1)=255,129,129,129,131,135,1 
58,252 

1140 DEFGRS(2)=255,129,129,129,1,1,1,15 
1150 DEFGRS(3)=248,128,128,128,129,129,1 

29.255 

1160 DEFGRS(4)=63,113,225,193,129,129,12 

9.255 

1170 DEFGRS(5)=255,129,129,129,129,128,1 
28,240 

1180 DEFGRS(6)=255,129,129,129,193,225,1 
13,63 

1190 DEFGRS(7)=252,142,135,131,129,129,1 
29 255 

1200 DEFGRS(8)=15,1,1,1,129,129,129,255 
1210 DEFGRS (9) =255,128,128, 128, 128,1.28,1 
28,128 

1220 DEFGRS(10)=255,1,1,1,1,1,1,1 

1230 DEFGRS(11)=128,128,128,128,128,128, 

128.255 

1240 DEFGRS(12)=1,1,1,1,1,1,1,255 
1250 RETURN 
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PRODEST 


PROGRAMMA 


PC 128S 


D ubblichiamo in questo numero l’agenda appunta¬ 
menti, quarta ed ultima parte del pacchetto di pro¬ 
grammi per la gestione domestica: con il prossi¬ 
mo numero della rivista saranno presentati i listati dei tre 
programmi che lo completano nonché le necessarie istru¬ 
zioni e modifiche da apportare a quelli già pubblicati e 
che ne consentono il lancio automatico e la gestione me¬ 
diante un menu generale. 

L’agenda appuntamenti gestisce le annotazioni per un in¬ 
tero anno, separate giorno per giorno; le stringhe sono 
collocate su un massimo di 250 righe di 76 caratteri cia¬ 
scuna, per un totale di quasi 20.000 caratteri disponibili al 
giorno, largamente sufficienti non solo per registrare gli 
appuntamenti, ma anche per tenere un diario molto detta¬ 
gliato. 

La ricerca dei dati è molto veloce e prevede solo l’inseri¬ 
mento di giorno e mese richiesti; sotto forma numerica i 
dati sono infatti archiviati in 12 subdirectories ciascuna 
intestata ad un mese dell’anno. La ricerca può essere au¬ 
tomaticamente continuata fino a selezionare il contenuto 
del primo giorno utilizzato, successivo a quello visualizza¬ 
to. Ogni schermata presenta fino a 25 righe di testo; i ta¬ 
sti del cursore consentono di sfogliare l’agenda sia in 
avanti che indietro. 

L’intera agenda o parte di essa può essere stampata su 
carta. 

Al termine dell’anno corrente, l’opzione ««PREDISPOSIZIO¬ 
NE NUOVO ANNO» annulla tutte le registrazioni archivia¬ 
te predisponendo i files per nuove immissioni per conser¬ 
vare le annotazioni è quindi necessario stamparle su car¬ 
ta. 


Istruzioni per l’uso del Programma 

Caricate il programma selezionando le directory principa¬ 
le (*DIR$) e inserendo il comando LOAD“AA”. Quando il 
programma viene usato per la prima volta, occorre proce¬ 
dere «una tantum» alla sua inizializzazione inserendo l’an¬ 
no corrente: vengono automaticamente create le subdirec¬ 
tories per memorizzare i dati di ogni mese 
(DIR$.AGEAPP.GEN,...), mentre l’anno è inserito nel file 
denominato “00” e viene letto ad ogni avvio di esecuzio¬ 
ne. 


Consultazione 


Per consultare l’agenda occorre inserire la data richiesta 
(giorno e mese in forma numerica): sono visualizzate le 
prime 25 righe di testo archiviate e le successive, ove pre¬ 
senti, possono essere stampate usando i comandi del 
cursore; un breve suono segnala la fine del testo. Se, in 
corrispondenza della data immessa, non è presente alcu¬ 
na annotazione, il programma ne segnala l’assenza. In en¬ 
trambi i casi, premendo il tasto ‘COPY’ viene attivata la ri¬ 
cerca automatica in archivio delle annotazioni immediata¬ 
mente successive in ordine cronologico: la ricerca può es¬ 
sere arrestata in qualunque momento del suo svolgimento 
premendo il tasto 


Aggiornamento 

Dopo la scelta della data appare il testo eventualmente 
già archiviato, al quale si possono aggiungere altre righe 
fino ad un massimo di 250. L’interruzione dell’immissione 
avviene inserendo il carattere all’inizio di una nuova ri¬ 
ga. 


Correzione/Cancellazione 


Il testo memorizzato può essere corretto o cancellato in 
qualunque momento: dopo aver inserito la data, i dati ar¬ 
chiviati sono visualizzati, riga per riga a partire dalla pri¬ 
ma. Il tasto ‘COPY 1 conferma il testo passando alla riga 
successiva, ‘DELETE’ provoca la cancellazione dell’intera 
riga, mentre la pressione di ‘C’ ne permette la correzione: 
il contenuto viene stampato in reverse e su di esso si può 
sovrascrivere l’intera riga corretta. Il tasto permette di 
uscire in qualunque momento dalla sequenza ed i dati 
corretti passano in registrazione che, comunque, procede 
automaticamente dopo la visualizzazione dell’ultima riga 
memorizzata. Questa opzione, pertanto, non permette l'ag¬ 
giunta di ulteriori righe di testo, operazione gestita 
dall'opzione precedente. 
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di Enrico Fabrizi 


LIST 


Stampa _ 

L’opzione prevede l’inserimento di una data iniziale e fina¬ 
le: il programma ricerca automaticamente ogni data cui 
corrisponde almeno una riga di testo e limita ad esse la 
stampa. Usando il modulo continuo il passaggio alla pagi¬ 
na successiva avviene automaticamente dopo 50 righe di 
testo; la stessa procedura viene seguita con il foglio sin¬ 
golo, con la differenza che, dopo l’inserimento di una nuo¬ 
va pagina, occorre premere il pulsante ‘LOCAL’ sulla 
stampante. La stampa può essere arrestata tenendo pre¬ 
muto il tasto fino ad avvenuta interruzione. 


Predisposizione Nuovo Anno 

Poiché la cronologia delle registrazioni non tiene conto 
dell’anno, ma solamente del mese e del giorno, è neces¬ 
sario, al termine dell’anno stesso, procedere ad una reini¬ 
ziai izzazione dell’archivio che eviti il richiamo di annota¬ 
zioni dell’anno precedente presentate come relative al pe¬ 
riodo corrente. Tale opzione (la cui esecuzione, per il suo 
carattere distruttivo, deve essere prima confermata) an¬ 
nulla tutte le annotazioni memorizzate ed incrementa au¬ 
tomaticamente l’anno corrente. 


STRUTTURA DEL PROGRAMMA 

R.60-100 

Comandi preliminari e dimensiona¬ 
mento vettori. 

R.110. 

Lettura anno corrente o inizializzazio- 

ne. 

R,120-240 

Visualizzazione menu e scelta dell’op¬ 
zione. 

R.250-400 

Procedura di inizializzazione del pro¬ 
gramma. 

R.410-550 

Procedura di inserimento della data 
con controllo automatico degli anni 
bisestili e dei mesi di 30 giorni. 

R.560-700 

Procedura di scelta della directory re¬ 
lativa al mese inserito. 

R.710-800 

Procedura di stampa su carta delle ri¬ 
ghe di testo. 

810-830 

Procedura per la stampa di un mes¬ 
saggio un carattere alla volta. 

R.840-860 

Procedura per la costruzione della 
stringa che visualizza la data. 

R.870-960 

Procedura di controllo in caso di in¬ 
cremento automatico della data. 

R.970-1220 

Opzione di consultazione. 

R.1230-1330 

Opzione di aggiornamento. 

R.1340-1540 

Opzione di correzione/cancellazione. 

R.1550-1710 

Opzione di stampa su carta. 

R.1720-1870 

Opzione per la predisposizione nuovo 
anno. 

R.1880-1900 

Opzione di uscita dal programma. 

R.1910 

Rinvio dell’esecuzione al menu in ca¬ 
so di errori. 


Uscita 


Consente di uscire dal programma al termine della sua 
utilizzazione: è consigliabile eseguire sempre questa op¬ 
zione prima di spegnere il computer. Come già detto nella 
presentazione del programma di contabilità domestica (n. 
5 di maggio 1987 di LIST), quando il pacchetto sarà com¬ 
pletato con il lancio automatico ed il menu generale, l’op¬ 
zione uscita rinvierà automaticamente a quest’ultimo. 


AVVERTENZE IMPORTANTI 

Prima di iniziare la trascrizione del listato, leggete 
attentamente i paragrafi che seguono: 

1 • I dati sono archiviati sul dischetto in una subdi- 
rectoryche è necessario creare da tastiera prima di 
far girare il programma che, altrimenti, si blocche¬ 
rebbe non trovando lo spazio su. cui memorizzare i 
dati. Pertanto, la prima operazione da eseguire è 
l’inserimento dei seguenti comandi: 

> DIR$ 

> CDIRS.AGEAPP 

2 ■ Poiché l’agenda appuntamenti è inserita in un 
più ampio pacchetto di programmi gestibili median¬ 
te un menu principale, è necessario, affinchè possa 
essere caricato automaticamente, assegnargli un 
nome preciso. Pertanto la registrazione del program¬ 
ma su disco va eseguita nella directory principale 
assegnando al filo il nome “AA” i comandi necessa¬ 
ri sono i seguenti: 

> *DIR$ 

>SAVE “AA” 

3 - Il comando *FX4,1 di R.60 modifica i codici pro¬ 
dotti dai comandi del cursore e dal tasto ‘COPY’ i 
quali, non appena il programma è passato in esecu¬ 
zione, perdono la propria funzione originale per 
l’edit del testo. Se si rende quindi necessario modi¬ 
ficare il contenuto di una riga di programma, occor¬ 
re, per evitare di riscriverla tutta, inserire il comando 
*FX4,0 che ripristina le normali funzioni dei tasti 
cursore e copy. Il comando può essere naturalmente 
inserito in uno dei tasti funzione (ad esempio f 0) in 
modo da eseguirlo semplicemente premendo il tasto 
funzione stesso: 

>*KEY0*FX4,0:M 

4 - Il comando *FX200,3 di R.70 provoca la disatti¬ 
vazione del tasto ESCAPE e la cancellazione della 
memoria con il tasto BREAK: tale precauzione è uti¬ 
le per evitare che una accidentale pressione del ta¬ 
sto ESCAPE provochi una uscita del programma 
con conseguente perdita dei dati inseriti e non an¬ 
cora registrati. Poiché in tale configurazione non è 
possibile uscire dal programma per correggere ri¬ 
ghe contenenti errori di copiatura, vi consigliamo di 
inserire la R.70 solo dopo aver trascritto e collauda¬ 
to tutto il programma, avendo la certezza della com¬ 
pleta assenza di errori. 
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AGENDA APPUNTAMENTI 


OLIVETTI PC 128 S 



>L. 

10REM*** *** 

20REM***AGENDA APPUNTAMENTI*** 
30REM*** EN.FA.SOFT-1987 *** 

40REM*** PC-128 S *** 

50REM*** #•*■# 

60*FX4,1 
70*FX200,3 

800N ERROR GOTO 1910 
90DIM AT(251) 

100*DIR$.AGEAPP 

11 OA=OF'EN IN" 00 " : IF A=0 THEN MODE 
128:PROCini2 ELSE INPUT#A,ANT:CLOS 
E#A 

120DATA Consultazione,Aggiornarne 
nto,Correzìone/cancellazione,Stamp 
a,Predisposizione nuovo anno,Uscit 
a 

130RESTQRE 120:FOR K=1 TO 6:READ 
A*(K):NEXT 

140M0DE 135SPRINT TAB(8)CHR*141 ; 
CHR*129;"AGENDA APPUNTAMENTI":PRIN 
T TAB(8)CHRT141 ;CHRT129;"AGENDA AP 
PUNTAMENTI" 

150F0R K=1 TO 6SPRINT TAB(0,K+4) 
CHR*156 ;CHR*135;" "; A#(K):NEXT:P= 

1 : PP=1 

160PRINT TAB(0,22)CHR*133;CHR*15 
7;CHR$131 ;CHR$136 ;"Seiezìonare coi 
comandi del cursore":PRINT CHR$13 
3; CHRT157; CHRif 131; CHRT136; "e preme 
re ’ RETURN’’ " 

170PRINT TAB(0,PP+4)CHRT156 ;CHR* 
137;" A*(PP)SPRINT TAB(0,P+4)CH 
R*132;CHR*157;CHR*130;CHRT136 ; AT(P 
) 

180A=GET 

190IF A=138 THEN 230 
200IF A= 139 TViEN 240 
210IF A=13 THEN ON P GOTO 970,12 
30,1340,1550,1720,1880 
220G0T0 180 

230IF P<6 THEN PP=P: P=F'+1 : GOTO 1 
70 ELSE P=6: GOTO 170 

240IF P>1 THEN PP=P: F'=P-1 : GOTO 1 
70 ELSE P-1 : GOTO 170 
250DEFPR0CÌniz 

260PRINT TAB(32)"INIZIALIZZAZION 
E": INPUT’ ?9 "Inseri re l'anno corren 
te: ";AN*:IF LEN(AN$)<>4 THEN SOUN 
DI,-5,20,10:CLS:GOTO 260 

270A=0PEN0UT"00":PRINT #A,AN* : CLO 
SE#A 

280*CDIR$.AGEAPP. GEN 
290*CDIR*.AGEAPP. FEB 
300*CDIR*.AGEAPP.MAR 
310*CDIR*.AGEAPP. APR 
320*CDIR*.AGEAPP.MAG 
330*CDIR^.AGEAPP.GIU 
340*CDIR^.AGEAPP.LUG 
350*CDIR*.AGEAPP. AGO 
360*CDIRf.AGEAPP. SET 


LIST 2 


370*CDIR$.AGEAPP.OTT 
380*CDIRf.AGEAPP.NOV 
390*CDIRT.AGEAPP.DIC 
400ENDPR0C 
41ODEFPROCins_data 
420PRINT' 7 ? 

430INPUT"Giorno </=USCITA): ";G: 
IF G=0 THEN 550 

440IF B<0 OR G>31 THEN SOUND1,-5 
,20,10: VDUU SPRINT TAB (19)" ": 

VDU11 : GOTO 430 

450INPUT"Mese: ";M: 

IF MCI OR M>12 THEN SOUND1,-5,20,1 
Os VDUU SPRINT TAB (19)" "s VDU 11 

sGOTO 450 

460IF G<29 THEN 540 
470IF G=29 AND M=2 THEN 510 
480IF G>29 AND M=2 THEN 530 
490IF G=31 THEN 520 
500G0T0 540 

510IF INT(VAL(AN^)/4)<>VAL(AN#)/ 
4 THEN 530 ELSE 540 

520IF M=4 OR M=6 OR M=9 OR M=11 
THEN 530 ELSE 540 

530S0UND1,-5,20,10:VDU11 : VDU11 : P 
RI NT" » SPR¬ 
INT" " :VDU 

11 :VDU11 : GOTO 430 
540PR0Cdata 
550ENDPR0C 
560DEFPR0Csc_dir 

5700N M GOTO 580,590,600,610,620 
,630,640,650,660,670,680,690 

5800SCLI"DIR*.AGEAPP.GEN": GOTO 7 

00 

5900SCLI"DI R$ .AGEAPP.FEB": GOTO 7 

00 

6000SCLI"DIR*.AGEAPP.MAR"sGOTO 7 

00 

61OOSCLI"DIR*.AGEAPP.APR": GOTO 7 

00 

6200SCLI"DIRt.AGEAPP.MAG"sGOTO 7 

00 

6300SCLI"DIR*.AGEAPP.GIU":GOTO 7 

00 

6 400SCLI"DIRf.AGEAPP.LUG": GOTO 7 

00 

6500SCLI"DIR^.AGEAPP.AGO": GOTO 7 

00 

66OOSCLI"DIR$.AGEAPP.SET"s GOTO 7 

00 

670QSCLI"DIRT.AGEAPP.OTT": GOTO 7 

00 

6800SCLI"DIR$.AGEAPP.NOV": GOTO 7 

00 

690*DIR$.AGEAPP.DIC 
700ENDPR0C 
71ODEFPROCstmp 
720Ft=STR^(X)SPRINT" 

":VDU11:PRINT"Data: ";F$;"/";M 
;"/";AN^sVDU11 

730A=0PENIN(F$):IF A=0 THEN 800 
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OLIVETTI PC 128 S 


LIST 3 


LIST 4 

7401NF'UT#A, J : IF J=0 THEN CL0SE#A 


H=47 THEN 980 

: GOTO 800 


1190G0T0 1000 

750VDU2:VDU21 


1200M=M+1 : IF M>12 THEN 1220 

760F0R K=1 TO J: INPUT#A,A$(K): NE 


1210G=1 :PROCsc_dir: GOTO 1180 

XT:CLQSE#A 


1220PRINT 7 7 7 "Nessun 7 al tra registr 

770PRI NT CHRT-1 ; CHR$14 ; F$ ; " / " ; M ; " 


azione presente in archivia per 1' 

/";AN$:CL=CL+2:PRINT:FOR K=1 TO J: 


anno corrente.":S0UND1,-5,20,10: Z = 

PRINT AT(K):CL_=CL+1 : IF GL>50 THEN 


INKEY(200): GOTO 980 

CL=0SPRINT CHR*1 ;CHR$12 


1230REM***AGGIORNAMENTO*** 

780NEXT K:PRINT:PRINT:CL=CL+2:IF 


1240MQDE 128:VDU19,1,3,0,0,0:PRIN 

CL>50 THEN CL=0:PRINT CHR*1 ;CHR*1 


T TAB (33) "AGGIORNAMENTO" .-PROCins d 



ata:IF G=0 THEN 130 

790VDU6:VDU3 


1250CLS:PRINT TAB(10)"AGGIORNAMEN 

800ENDPR0C 


TO";TAB(65)DT$:PRINT TAB(0,30)"Per 

81ODEFPROCcar 


interrompere l’immissione inserir 

820F0R MS=1 TO LEN(T*):PRINT MID 


e una 7 / 7 a inizio riga." 

$ (T*,MS,1); :Z=INKEY(10)sNEXT MS 


1260VDU28,0,29,79,2:PROCsc dir:A= 

830ENDPRÒC 


OPENIN(F^):IF A=0 THEN J=0:G0T0 13 

840DEFPR0Cdata 


00 

850F^=STRT(G):DT$=STR$(G)+"/"+ST 


12701NPUT#A,J: IF J=0 THEN CLOSE#A 

R$ (M) +"/"+ANT+" 


: GOTO 1300 

860 ENDPROC 


12801F J =250 THEN PRINT' 7 7 "Capaci 

S70DEFPR0Cctr1 data 


ta 7 di memoria esaurita.": SOUND1,- 

880IF G<29 THEN 960 


5,20,10:CLOSE#A:Z=INKEY(200): GOTO 

890IF G=29 AND M=2 THEN 930 


130 

900IF G>29 AND M=2 THEN 950 


1290PRINT:FOR K=1 TO J:INPUTttA,A* 

910IF G=31 THEN 940 


(K)SPRINTAI(K):NEXT:CLOSE#A 

920GQT0 960 


1300K=J:PRINT:REPEAT:K=K+1 : IF K>2 

9301F INT(VAL(AN*)/4)< >VAL(AN*)/ 


50 THEN 1320 

4 THEN 950 ELSE 960 

940IF M=4 OR M=6 OR M=9 OR M=ll 


131OPRINT TAB(1)" 

THEN 950 ELSE 960 


":VDU11: 

9506=32 


INPUTLINE AT(K): IF LEN(AT(K))>76 T 

960ENDPR0C 


HEN SOUND 1 ,-5,20,10: VDUU: GOTO 131 

970REM***C0NSULTAZIONE*** 


0 

980M0DE 128:Z=0:J=0:VDU19,1,2,0, 


1320UNTIL K>250 OR A* <K)="/" 

0,0:PRINT TAB(33)"CONSULTAZIONE":P 


1330J=K-1 :A=OPENOUT(F$>: FRINT#A,J 

ROCins_data:IF G=0 THEN 130 


:FOR K=1 TO J:PRINT#A,A*(K):NEXT:C 

990PR0Csc_dir 


LOSE#A:SOUND1,-5,200,5:GOTO 1240 

1000VDU26SPRINT TAB(10)"CONSULTAZ 


1340REM***CQRREZIONE/CANCELLAZION 

IONE";TAB(65)DT*SPRINT TAB(0,30)CH 


E*** 

R$138;"=Avanti ";CHRT139;"=Indi 


1350M0DE 128:VDU19,1,6,0,0,0:PRIN 

etro 7 COPY 7 =Date successive 


T TAB(28)"CORREZIONE/CANCELLAZIONE 

/=Uscita" 


" : F'ROCins data: IF G=0 THEN 130 

1010VDU28,0,29,79,1: CLS : A=OPENIN( 


1360CLS:PRINT TAB(10)"CORREZIONE/ 

F$):IF A=0 THEN 1150 


CANCELLAZIONE";TAB(65)DT$SPRINT TA 

10201NPUT#A,J: IF J=0 THEN CLOSE#A 


B(0,30)" 7 COPY 7 =Prossi ma riqa 7 C 7 = 

sGOTO 1150 


Correzione riga 7 DELETE 7 =Cancel1 a 

1030S0UND1,-5,200,5: FOR K=1 TO J: 


zione riga /=Uscita"; 

INPUT #A,A#(K):NEXT:CLOSE#A:K=1 


1370VDU28,0,29,79,1:PROCsc dir:A= 

1040CLS:PRINT:FOR R=K TO K+25:IF 


OPENIN(F$):IF A=0 THEN 1520 

R>J THEN 1060 


20,10 

1050PRINT A*(R) 


1130IF K<1 THEN K=1 : SOUND1,-5,20, 

1060NEXT 


10 

1070Z=GET:IF Z=47 THEN 980 


1140GQT0 1040 

1080IF Z=138 THEN K=K+20:G0T0 112 


1150IF Z< >135 THEN PRINT 7 7 7 "Nessu 

0 


na registrazione presente in archi 

10901F Z= 139 THEN K=K.-20:G0T0 113 


vio per la data riehiesta.": SOUND 1 

0 


,-5,20,10:GOTO 1070 

11.00IF Z = 135 THEN 1160 


1160G=G+1:PROCctrl data 

111OGOTO 1070 


1170IF G >31 THEN 1200 

11201F K>J THEN K=J-25: SOUND 1,-5, 


1180PR0Cdata:VDU26:H=INKEY(1) : IF 
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LIST 5 


13801NF’UT#A, J : IF J=0 THEN CL0SE#A 
: GOTO 1520 

1390F0R K=1 TO JsINPUT#A,A*(K>sNE 
XT:CLOSE#A 

1400K=0:PRINT:REPEAT:K=K+1 :PRI NT 
A* (K) 

141OZ=GET: IF Z=47 THEN 1460 
1420IF Z=135 THEN 1460 
1430IF Z=67 OR Z=9? THEN 1530 
14401F Z = 127 THEN A*(K):VDU11 : 
PRINT" 

":VDU11 : GOTO 1460 

1450G0T0 1410 
1460UNTIL K=J OR Z=47 
1470B=0:FOR K=1 TO J:IF A*(K)="" 
THEN 1490 
1480B=B+1 

1490NEX T:A=OPENOUT(F*):PRINT#A,B: 
FOR K=1 TO JsIF A*(K)="" THEN 1510 
1500PRINT#A,A* < K) 

151ONEX T:CLOSE#A: SOUND1,-5,200,5: 
GOTO 1350 

1520PRINT 777 "Nessuna registrazion 
e presente in archìvio. ": SOUND1,-5 
,20,10:Z = INKEY(200): GOTO 1350 
1530VDU11SPRINT TAB(1)"_ 


■ 

VDU11 :COLOURO:COLOUR129:PRINT TAB( 
1)A*(K):COLOUR1 :C0L0UR128:VDU11s IN 
PUTLINE B$:IF LEN(B$)>76 THEN SOUN 
DI,-5,20,10:GOTO 1530 
1540A*(K)=B*: GOTO 1460 
1550REM***STAMPA*** 

1560M0DE128:VDU19,1,2,0,0,0:PRINT 
TAB(37)"STAMPA" 

1570VDU28,0,31,79,1:CLS:PRINT 77 "D 
ata iniziale stampa: ": F'ROCi ns_data 
:IF G=0 THEN 130 

1580G1 =G : M1 =M : PR I NT 7 7 7 7 ‘'Data fina 
le stampa:":PROCins_data:IF G=0 TH 
EN 130 

1590G2=G:M2=M: IF M20M1 AND G2<G1 
THEN SOUND1,-5,20,10:GOTO 1570 
1600CLS:PRINT 7777 "Stampa dal ";G1 
;"/"5 MI 5 "/";AN*;" al ";G2;"/";M2; 
"/";AN* 

161 OF'RINT 7 7 , 7 7 7 7 "Per interrompere 
la stampa tenere premuto il tasto 
7 / 7 fino ad avvenuta":PRINT"inter 
ruzione. ".-PRINT 7 7 
16 20VDU2:VDU21 :PRINTCHR*1 ;CHR*14; 
TAB(14)"AGENDA ";AN*:PRINT:PRINT : 
CL=2:VDU6:VDU3 

1630F0R R=M1 TO M2:M=R:PROCsc_dir 
:IF MI=M2 THEN GI=G1 :GF=G2: GOTO 16 
70 

16401F R=M1 THEN GI=G1 :GF=31 : GOTO 
1670 

1650IF R<M2 THEN GI = 1 :GF=31 : GOTO 

1670 


LIST 


1660GI=1:GF=G2 

1670F0R X=GI TO GF:Z=INKEY(10):IF 
Z=47 THEN X=GF+1:R=M2+1: GOTO 1700 
1680G=X:PROCctr1_data:IF G>31 THE 
N 1700 
1690PR0Cstmp 
1700NEXT X 

17IONEXT R: GOTO 1570 
1720REM***PREDISPOSIZIONE NUOVO A 
NNO*** 

1730M0DE 135:PRINTCHR*129;TAB(7)" 
PREDISPOSIZIONE NUOVO ANNO ".-PRINT: 
PRINTCHR*133;CHRS157;CHR*131;CHR*1 
36;TAB (12)"ATTENZIONE 1 !":PRINTCHR* 
135:PRINT 

1740T*="Questo e 7 un comando dist 
ruttivo.":PROCcar:PRINT:PRINT:T*=" 
Tutte le registrazioni saranno can 
cella-te per predisporre 1 7 anno " + 
STR* ( VAL ( AN$ ) +1 > + " . " : PROCcar : PR I NT 
:PRINT 

1750PRINTCHR*132;CHR*157;CHR*130 ; 
CHR*136 ;"Voiete eseguire 1’operazi 
one? (S/N)" 

1760Z*=GET*:IF Z*="S" OR Z*="s" T 
HEN 1790 

1770IF Z*="N" OR Z*="n" THEN 130 
1780G0T0 1760 

1790F0R R=1 TO 12:M=R:PROCsc_dir: 
FOR X = 1. TO 31:F*=STR*(X) : A=OPENIN( 
F*):IF A=0 THEN 1830 
18001 NF’UT#A , J : IF J=0 THEN CLOSE#A 
: GOTO 1830 

181OCLOSE#A:A=OPENOUT(FT):PRINT#A 
,0:CLOSE#A 

1820PRINT TAB(0,23)CHR^130;"Canee 
11 azione dati del "; X;"/";R;"/";AN 

*;'* " 

1830NEXT X 
1840NEXT R 
1850*DIRt.AGEAPP 


1860A=0PEN0UT"00":PRINT#A,STR^(VA 
L(AN*)+1):CLOSE#A 
1870PRINT TAB(0,23)"Predi sposizio 
ne eseguita ": SOUND1,-5,2 

00,5:Z=INKEY(200): GOTO 100 


1880REM***USCITA*** 
1890*DIR* 

1900END 
1910G0T0 130 



UN PACCHETTO DI PROGRAMMI 
UNIFORMATO IN UNO 

“DOMUS” 

LO TROVERAI NEL PROSSIMO LIST 
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PROGRAMMA 


di Alessandro Ceracchi 


C128 



n utto DOS è un programma che implementa delle 
utilità per la gestione del Disk Drive e in più offre 
il MERGE o APPEND. 

Dato il Run si avrà di fronte il menu principale compren¬ 
dente 3 opzioni subito descritte: 


OPZIONE 1: 


1 : 

2 : 

3: 

4: 


5: 

6 : 

OPZIONE 2: 


NOTE: 


Attenzione: 


OPZIONE 3: 


Si accede al sotto menu contenente le op¬ 
zioni per la gestione del Disk Drive che 
sono: 

Formattazione di un disco. 

Cambia il nome della directory ad un di¬ 
sco. 

Cancellazione di un file dal disco. 

Invia un comando DOS diretto al Drive. I 
comandi possono essere l’inizializzazione 
del Drive “IO”, il validate di un disco 
“VO”. 

Comunque per maggiori informazioni in 
merito consultare il Manuale del Drive. 

Si ha la directory del disco corrente. 

Si ritorna al menu principale. 

Con questa opzione si procede all'AP- 
PEND di due programmi BASIC. 

Il programma chiede in input il Nome del 
File sorgente, il Nome del File da unire ed 
il nome del File oggetto. 

Il File da unire deve assolutamente avere 
i numeri di linea inferiori ai numeri di li¬ 
nea del File sorgente. 

Termine dell’elaborazione. 


Questo programma gira unicamente sul C-128 ad 80 co¬ 
lonne e supporta come periferiche il Disk Drive. Notare 
che il presente programma è interamente gestito a fine¬ 
stre per far si che l’utente possa in qualsiasi momento se¬ 
guire al video tutte le operazioni da lui scelte. 
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LIST 
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270 FORS=1TO14 PRINTC3*:NE/TS 

280 PRINT*l____.___. 

-J* 

280 F'RINT"Sfritti i:3 APF'END BASIC " 

300 WIND0W16, 9,34,20 

310 PRINT*S NOME DEL PRIMO PROGRAMMA m " 
320 INPUTA* 

330 OPEN 1,8 .• 2 • " 0 "+A*+ », p, R » 

340 PRINTNOME DEL PROGRAMMA DA UNIRE 

■* 

350 INPUTA* 

360 OPEN2,8,3," 0 : "+A*+ ", P, R 

370 PRINT *m NOME DEL PROGRAMMA RISULTAN 

TE ■* 

380 IMPUTAI 

390 OPEN3,8,4,*00 *+A*+*,P. W* 

400 GET#1, A*, B* 

410 GET#2,C*,D$' 

420 PRINT#3,A*B*, 

430 S=ASC < A*+CHR* < 0> > +256*ASC< B*+CHR* < 0 > 

> 

440 A-l : GOSUB510 
450 A=2 : GOSUB510 

460 IFL*< 1 >=" *ANDL$<2>=* *THENPRINT#3, CHR 

* < 0 > CHR* ( 0 > ; : CL0SE3 ; CL0SE2 : CLOSE1 '• SLEEP1 
•GOTOl10 

470 IFQ < 2 > <0 <1 > THENA=2 • GOSUE6O0 : GOSUE'510 

• GOTO460 

480 IF6<1><Q<2 >THENA=1•GOSUB608 
490 A=1 : GQSUB51O 
50U GOT0460 
510 L*<A>=*" 

520 Q(A>=700UU 

530 GET#A,A*,Bf,C*,D* 

548 IFA*=* *ANDB*=* *ANDC*=* "THENRETURN 
550 IFST>0THENRETURN 

560 Q< A> =ASC<C*+CHR* <0 > > +256#flSC< D*+CHR* 

< 0 > > 

570 GET#A, hi- IFA*=* *ORfì*=CHR* < 13>THENRET 
URN 

580 L$<A)=L*<A>+R$ 

590 GOTO570 

600 S=S+LEN<L* <A> > M= INT<S/256> ■ PRINT#3, ' 
CHR*< S~256*W>CHR*<M>, 

610 PRINTS; GK'A>* *; 

620 U= I NT<Q< A>z’256 > : PR I NT#3, CHR*<Q< A> -25 

em :> chr* < w > l* < a > chr* < 0 > ; 

630 RETURN 
640 i : 

650 Q2=0•QS=0 ; QE=0 F=0 

660 PRINT"ntì DISPLAY BLOCK ALLOCATI 

ON MflPMW* 

670 INPUT "M DISK UNIT NR <8~15> ? 8 Ili 

111": U 

680 IF U<8 OR IJ> 15 THEN PRINT "TTì* GOT 
0 670 

690 INPUT "M DISK DRIVE NR <0-1 > ? GIBBI 

*;B 

700 IF DC0 OR D>1 THEN PRINT "T 11" GOTO 
690 

710 PRINT "m PUT TARGET DISK IN DRIVE*; 

D ; "UNIT*.U 

720 PRINT " THEN PRESS ANV KEV TO START* 

.730 GET H* IF A*=" " THEN 730 

740 Z*=CHR*<0 >• D*=RIGHT*<STR*<D>,1> 

750 Y*=*atìMHM»^^ 

760 Z*=* 

77tì OPEN 15, LI ,15, * IJG>M 1 * • CLOSE 15 

780 OPEN 15,U,15: rriNT#15, * I*+D* OPEN 


2, U , 2,* # * 

790 QQ=18 : IFQS=1THENQQ=53 
800 PRINT#15,*U1 : *, 2, D, QQ; @ 

810 INPUT#15,A,B*,C,D 

820 IFA*66ANDQ0=53THENQE=1 GOTO1050 

830 IFAO0THENPRI NT * -«DOS ERRAR " A ; *. ♦, b 

*.:*, ",C , *,*.;D CLOSE15 END 

840 PR I NT# 15, " B-P", 2 ; y 

850 PRINT "3*, V*," • = BLOCK i ISED* • 

860 V=14 X=1: GOSUB 11 IO 

870 PR I NT " S^IE fli: fin flUO :p*EWK5JW*, 

880 FOR J=0 TO 20 PRINT RIGHT*<STR*<.r , 
2);*:iBr, ne/t 
890 IFOS=1THEN920 

90O GET#2,AT GET#2,Ai GET#2 A$ GET#2■A 
* 

910 IFASC<A$+CHR*<0>>-128T HEN02-1 
920 IF02-1ANDQS-0THENPRINTTAB < 31 • A S1DF 
1>*; 

930 IF02=1ANDOS-1THENPRINT 7AB<31>^ <SIDE 

2 y » ; 

940 IFQS=uTHENFORTT“ITO 35 T~1T 
950 IFQS=1THENFORTT=361070 :T=TT-35 
960 GOSUB 1130 

970 V=22’ K=T+5■ GOSUB 1110: GOSUB 1190 
980 NE/T IF02=1ANDOS-1THENGOT01020 
990 PRINT#15, " B-P"; 2;i44 Nf~"" 

1000 FOR J-l TO 20: GET#2,A* HT-NT+hT- 
NE/T 

1010 GOSUB 1280 

1020 PRINT V$," PRESS ANV KEV " 

1030 GET A* IF m=** THEN 1020 
1O40 IFG2=1ANDQS-0THENQS=1 ; G0T0790 
1050 PRINT ":im DISK HEADER = // , CHR*<34> 
;N*;CHR*<34> 

1060 PRINT PRINTF;" BLOCKS FREE* 

1070 IFQE= 1 THENPRINT* PlPlll571 FORMAT DISK 
. A PRINT* LAN QNLY READ SIDE ONE ON THIS 
DRIVE." 

1080 INPUT "m VI EH ANOTHER DISKETTE <V/ 
N> ? NIBBI*. A* 

1090 CLOSE 2: CLOSE 15- IFA*=*V*THEN RUN 
1100 END 

1110 PRINT LEFT * < V*, V >, LEFT * < /*, K > * II*, 

1120 RETURN 

1130 IFQS-1THEN1150 

.1140 GET#2, C* 

1150 REM 

1160 GET#2,A* : B <O>=ASC<A*+Z* > 

1170 GET#2,A* : B <1>=flSC< H*+Z* > 

1180 GET#2,A*: B< 2 >-ASC < H*+Z* >: RETURN 
1190 PRINT "PIPI!*. T*-R IGHT * < STR* < TT > , 2 > 
120O PRINTLEFT* 1 ! t ' ■, "itA", RIGHT*<T*, 1 , 

v im*; 

1210 L=20: IF T>17 THEN L=13 
1220 IF T>24 THEN L=17 
1230 IF T>30 THEN L=16 
1240 FOR S=0 TO L 

1250 Z=21<S-1 NT <S/8> *8 >AND< B<INT < S/8> >> 

1260 IF Z=0 THEN PRINT "« 11*. : NE/T: RET 
URN 

1270 PRINT *+ni"; NE/T RETURN 
1280 0PEN96,U,O,*$*+D*+" * 

1290 FOR//=1T034 GET#96,A*: NE/T// 

130O GET#96,A*,B*•F=ASC< A*+CHR*<0> >+256* 
ASC <B*+CHR* <U >> 

1310 CL0SE96: RETURN 
1320 : •• 

1330 PRINT* na" WINDOW15,6,56,22 

1340 PRINT*!- 
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TUTTO DOS 


C 128 


LIST 


1350 FORS=1IO14 PRINTC3i : NE/TS 

1360 PR IM T" I_____-_- .. 

___J" 

1370 MINDOW16,7 .• 54,20 

1380 FRINITI* i:3 CAMBI fi NOME AL DISCO " 

1390 FRI NT".RlP] DISK UNITA- NR •8-15> ' 8 
turni" 

1400 INPUTII I FU<80RU> 15THENPPI NT" TTÌ" 00 
TO1390 

1410 PRINT"?! DISK DRIVE NR <0/1 > ? GIBBI" 

1420 INPUTD IFD<0ORD>1THENFRINT" 'TTY' GOT 
01410 

1430 FRI NT"?! INSERISCI IL DISCO U.",U," 
D. D 

1440 PRINT"?!?! FRENI UN TASTO PER CONTINO 
ARE " 

1450 GETKEYT4 

1460 A : = 1 V= 16 • 0$=CHR$ < 34 ■ P4=CHR4 < 160 > 
1470 T= 18 8=0 I 4=" I "+RI GHT 4 < STR4 •, D> , 1 > 

148U OPEN1,U,15,IT GOSUB1720 
1490 GOSUB1680 F4=H4•GET#2, XX , XX ,A4, BX 
1500 FRI NT";™ NONE CORRENTE ", OS , F4, Q 
4 

1510 FRINT" ID : ",A4, B4 

1520 FRI NT"!?! NUOVO NONE <MAZ 16 CAR. > 0 

- QIJIT " " 

1530 INPUT" ? QUITIBBBSBI";N4 L=LEN«:.N4> I 
FL>VTHEN1500 

1540 I FN4=" QIJIT *THEN 1740 

1550 FRINT"SDK FER RISCRIVERE IL NONE ? 

CS/N> ? SiiSI"; 

1560 INPUT/4 : IF/4<>" S"THEN1500 
1570 IFL=VTHEN1590 
1580 FOR/=L+AT0V N4-N4+P4 NE/T 
1590 FRINT#1,"B-F ", 2,144 PRINT#2,N4, 

1600 FR I NT# 1, " IJ2 : " • 2, D, T, S : GOSUB 1720 
1610 PRINT#1,14 GOSUB1720 CL0SE2 
1620 FRINT"?! VECCHIO NONE ",Q4,F4,Q4 
1630 GOSUB1680 CL0SE2•CLOSE1 
1640 PR INI" ?! NUOVO NONE " 04 A4,04 
1650 FRIN Ì" ?! VUOI CONT INUARE <3/H 1 ? SUI 
il"; 

1660 INPUT/4 IFZ4="S"7HENHiO 
1670 FRI NT","]", SLEEP2 GOTO 1750 
1680 0PEN2, U, 2,"tt" GOSUB 1720 H4--" " 

1630 fr:i:nt#i,"ui " ; d r;s gosub i?26 
1700 PRINT#1.*B-F "■2,144 FORX=ATOV 
1710 GET#2,T4 H4=H4+74 NE/T RETURN 
1720 INFUT# 1, E, IT4, J, K - 1FE-OTHENRETURN 
1730 FRI NT"?! ERRAR ",E,M4,J.K 
1740 CL0SE2 CLOSE 1 SLEEF'2 GOTO 1750 
1750 MIND0W26,8,58,24 

1760 FRINT"!- 

-,// 

1770 FORS=1TO14 FRINTC14 :NEZTS 
1780 PR I NT" L_____ _ 

1790 WINDQW27,9,56,22 

1800 PRINT"2M i:3 OPERAZIONI DOS " 

1810 PRINT"W 1 - FORMATTAZIONE DISCO 

1820 FRI NT"?! 2 - CAMBIA NONE DISCO 

1830 FRI NT"?! 3 - CANCELLA FILE 

1840 PRIMI"?! 4 - COMANDO DOS DIRETTO 

1858 FRI NT"?! 5 - DIRECTORY 

1860 FRI NT"?! 6 - RITORNO AL MENU 

1870 GETKEVT4 1F f ! -"6"THENÌIO 

188U ONVAL •• 74 > GOT01390, 1320,2000,2100,2.1 

30 


LIST 


1890 NIND0N46,5,79, 15 

1900 FRINT"!- 

- r , 

1918 FORS=1T08■FRIN TC24 NE/TS 
1920 PR IN T" I _ _ 


193tì WIND0W47,6,77,13 

1940 FRINT"di in FORMATTAZIONE DISCO * 

1950 INPUT"?! NOME DISCO ", ND4 IFLEN<ND4 
> =OORLEN< ND4>>16THEN1940 
I960 FRI NT"?! OK ? " : GETKEVR4 IFR4="N"THE 
NI 750 

1976 1FR4="S"THENPRINT"?! FORMATTAZIONE I 

N CORSO.. : HEADER<ND4>, IRC 

1980 FRINT" FINE FORMATTAZIONE..." 

1990 SLEEP1 GOTO1750 
2000 UINDON46,5,79,15 
2810 PRINT"! 

2020 FORS=1T08 ; PRINTC24•NE/TS 

2030 PR I NT" I_____« ____ 


2040 WIND0W47,6,77,13 

2050 FRINT"ZM m CANCELLAZIONE FILE " 

2060 I NFUT" ?! NOME FILE- " , NF4 : IFLEN < NF4 > 
=0ORLEN<NF4>>16THEN2050 
2070 FRI NT" ?! OK ? " : 0ETKEVR4 : IFNF X ="N" TH 
EH1750 

2080 IFR4="S"THENFR 1 NT"»! CANCELLAZIONE I 

N CORSO..." SCRRTCH<NF4> 

2090 GOTO1750 

2100 UIND0W46,5, 79, .15 

2110 FRINT"! 

- 

2120 FORS=1T08 :FRINTC24 :NE/TS 
2130 FR I NT" I__— - - __ 

2140 UIND0W47,6,77,13 

2150 FRINT"ZM m COMANDO DOS DIRETTO " 

2160 I NFUT" ?! > ", C04 I FC04=" "THEN 1750 

2170 OPEN15,8,15,C04•CLOSE15 

2180 GOTO1750 

2190 WIND0W46,5,79,15 

2200 FRINT"! 

-1 // 

2210 FORS=1TG8 ; PRINTC24:NE/TS 

2220 FRI NT"!_— __ 


>230 PR I NT" Si?ll 


m DIRECTORY DISCO ?!' 


2240 WIND0W47,8,77,13 

2250 SLUM CATALOG•FAST SLEEP1 : GOTO1750 


ABBONATI 
A LIST 

Farai un ottimo servizio di sostegno alla 
TUA rivista 
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ultitask 64 effettua un vero e proprio «sdoppia¬ 
mento» della memoria del calcolatore, mettendo 
subito a disposizione due nuovi comandi Basic 
per gestire facilmente (sia da programma che in modo di¬ 
retto) la nuova configurazione del C-64. 

Prima di tutto si potrà disporre di due pagine video indi- 
pendenti, anziché di una sola, il comando che gestisce le 
due pagine video ha la seguente sintassi: 

< —X,Y 

I parametri X ed Y possono assumere i valori 1 oppure 2: 
X rappresenta la pagina su cui si vuole scrivere, mentre Y 
rappresenta quale pagina si vuole visualizzare sullo scher¬ 
mo. Ad esempio: <—2,2 permette di visualizzare la se¬ 
conda pagina e di scriverci sopra. Ovviamente si può vi¬ 
sualizzare una pagina e contemporaneamente scrivere 
sull'altra, usando, per esempio, il comando <—2,1: in 
questo modo ogni istruzione di PRINT che useremo pro¬ 
durrà una stampa sulla pagina due, ma verrà visualizzata 
la pagina uno. È inutile dire che questa possibilità può ri¬ 
sultare utilissima in una infinità di applicazioni: in un pro¬ 
gramma con menu, ad esempio, invece di creare ogni vol¬ 
ta la schermata con le varie opzioni, basterà stamparla 
una volta per tutte su una delle due pagine e poi richia¬ 
marla quando occorre, semplicemente visualizzando la 
pagina corrispondente. 

II secondo comando invece, permette di gestire due aree 
di memoria, ognuna contenente un differente programma. 
Si possono quindi caricare due programmi e conservarli 
contemporaneamente in memoria, scegliendo quale dei 
due far girare. La sintassi del comando corrispondente è 
la seguente: 

<—PI oppure < —P2, 

il cui significato è evidentemente quello di selezionare 
uno dei due programmi. 

Come usare multitask 64 

Tutti i comandi possono essere usati in modo diretto, 
cioè digitandoli sulla tastiera e facendoli eseguire subito 
con un return. Il comando relativo alla gestione delle pagi¬ 
ne video può essere usato anche all’Interno di un pro¬ 
gramma. In questo caso deve essere seguito, però, da una 


istruzione di PRINT a vuoto, prima del PRINT vero e pro¬ 
prio. Una riga di programma potrebbe essere la seguente: 

10 < — 1,2:PRINT:PRINT“MESSAGGIO” 

Per quanto riguarda il secondo comando, esso va usato 
evidentemente solo in modo diretto. 

Prima di digitare o caricare da periferica un programma, 
bisogna fornire il comando < —PI o < P2 per selezionare 
l’area desiderata. Ed ora forniamo alcuni accorgimenti da 
seguire per utilizzare al meglio il MULTITASK 64: 

1. Se il turbo-tape è resistente in memoria, appena verrà 
fatto girare il MULTITASK, i comandi non saranno più ac¬ 
cettati. 

Volendo far coesistere entrambi i sets di comandi, sarà 
sufficiente digitare una POKE 49244,104 dopo la SYS del 
MULTITASK; 


Configurazione della memoria 

$0400 


1024 $0400 


1024 




Pagina 


Pagina 



video 


video 



(1K) 


(1K) 


$0800 


2048 $0800 


$2048 



Normale 

Pagina 




•4 - 

video 2 





(1K) 




Multitask $0C00 


3072 



-► 




PRG. 


PRG. 



BASIC 


BASIC 1 





(18K) 




$55F0 


22000 




PRG. 





BASIC 2 





(18K) 



(38K) 




$A000 


40960 $A000 


40960 
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2. Evitare di caricare programmi che occupano le loca¬ 
zioni dove risiede il codice macchina del MULTITASK 
(49152-49351), altrimenti quest’ultimo andrà perduto: 

3. Usare le due aree PI e P2 solo per memorizzare pro¬ 
grammi in Basic, infatti essi sono rilocabili; 

4. Se per qualche motivo (ad esempio, un resettaggio del 
C-64) venisse disattivato il MULTITASK, per riattivarlo oc¬ 
correrà semplicemente digitare SYS 49152. 

Per caricare in memoria il codice macchina vi forniamo 
un programma in Basic che effettua automaticamente an¬ 
che il lancio della routine, se tutte le linee dei DATA sono 
state digitate correttamente. 

Per i lettori che conoscono già il linguaggio macchina o 
per coloro che desiderano addentrarsi in questa affasci¬ 
nante tecnica di programmazione, pubblichiamo anche il 
listato in ASSEMBLER ed il relativo commento. 


COMMENTO AL DISASSEMBLATO 


C000 • C007: Viene spostato il puntatore dell’Inter¬ 
prete Basic alla locazione d’inizio del¬ 
la nostra routine, ovvero COI7. 

COOA • C016: Inizializzazione delle 2 aree Basic. 

C017 • C020: Lettura del primo byte del testo Ba¬ 
sic: se non corrisponde al codice 
ASCII del simbolo <— ($5F) allora il 
controllo viene restituito all’interprete 
Basic. 

C023 - C038: Viene letto il carattere successivo del 
testo Basic e viene confrontato con i 
codici ACM dei simboli “1” oppure 
“ 2 ”. 

Viene quindi spostato il puntatore al¬ 
la pagina video sulla quale il Basic 
lavora ($0288) a seconda del numero 
letto. 


C036 - C056: Viene letto un carattere dal testo e 
poi subito un altro, in modo da salta¬ 
re la virgola presente nella sintassi 
del comando. L’ultimo byte letto vie¬ 
ne al solito confrontato con i simboli 
1 e 2 e il puntatore della pagina da vi¬ 
sualizzare sullo schermo ($D018) vie¬ 
ne deviato sull’area opportuna. 

C059 • C0A2: Test sul secondo byte letto per verifi¬ 
care che sia una ‘P’. Se non lo è si 
salta alla locazione di sintax error 
($AF08), altrimenti si legge il caratte¬ 
re successivo per vedere se è un 1 o 
un 2. 

A questo punto è necessario sposta¬ 
re tutti i puntatori in pagina zero che 
definiscono il testo Basic a seconda 
del programma scelto. Per far questo 
bisogna ogni volta conservare in un 
buffer i puntatori all’area prescelta. 
Questi due buffer sono stati allocati 
subito dopo la routine nelle locazioni 
$C0AB - $C0B5 e $C0B6 - $C0C3. 
Contengono i valori $2B - $3B. 


LISTATO DISASSEMBLATO 


C000 

LDfl 

#$17 

C059 

CMP 

#$50 

C002 

STR 

$0308 

C05B 

BNE 

$C0R5 

C005 

LDfl 

#$C0 

C05D 

JSR 

$0073 

C007 

STR 

$0309 

C060 

CMP 

#$31 

C00R 

LDfl 

#$0C 

C062 

BNE 

$C083 

C00C 

STR 

$2C 

C064 

LDR 

$2B 

C00E 

LDR 

#$00 

C066 

CMP 

#$01 

C010 

STR 

$GC00 

C068 

BEQ 

$C09F 

C013 

STR 

$55F0 

C06R 

LDX 

#$00 

C016 

RTS 


C06C 

LDR 

$2B, X 

C01 7 

J8R 

$0073 

C06E 

STR 

$C0B6,X 

C01 fl 

BEQ 

$C020 

C071 

INX 


C01C 

CMP 

#$5F 

C072 

CPX 

#$0E 

C01E 

BEQ 

$C023 

C074 

BNE 

$C06C 

C020 

JMP 

$R7E7 

C076 

DEX 


C023 

JSR 

$0073 

C 077 

LDR 

$C0R8,X 

C026 

CMP 

#$31 

C07R 

STR 

$2B,X 

C028 

BNE 

$C032 

C07C 

CPX 

#$00 

C02R 

LDR 

#$04 

C07E 

BNE 

$C076 

C02C 

STR 

$0288 

C080 

JMP 

$C09F 

C02F 

JMP 

$C03B 

C083 

LDR 

$2B 

C032 

CMP 

#$32 

C085 

CMP 

#$01 

C034 

BNE 

SC059 

C087 

BNE 

$C09F 

C036 

LDR 

#$08 

C089 

LDX 

#$00 

C038 

STR 

$0288 

C08B 

LDR 

$2B, X 

C03B 

JSR 

$0073 

U08D 

STR 

$C0R8,X 

C03E 

JSR 

$0073 

C090 

INX 


C041 

CMP 

#$31 

C091 

CPX 

#$0E 

C043 

BNE 

$C04D 

C093 

BNE 

$C08B 

C045 

LDR 

#$15 

C095 

DEX 


C047 

STR 

$0018 

C096 

LDR 

$C0B6,X 

C04R 

JMP 

$C0yF 

C099 

STR 

$2B, X 

C04D 

CMP 

#$32 

C09B 

CPX 

#$00 

C04F 

BNE 

$C0R5 

C09D 

BNE 

$C095 

C0S1 

LDR 

#$25 

C09F 

JSR 

$0073 

C053 

STR 

$D018 

C0R2 

JMP 

$R7RE 

C056 

JMP 

$C09F 

C0R5 

JMP 

$RF08 


LISTATO BASIC 

10 FQRI =49152T049351 : PERDEI : P0KEI, fì ; S=S+fi 
:NEXT ■ IFSO22600THENPRI NT ' ‘ERRORE ! ‘ END 
15 SYS49152 NEW 

20 DRTR 169,23,141,8,3,169,192,141,9,3,1 
69,12,133,44,169,0,141,0,12,141,.240, 85 
30 DRTR 96,32,115,0,240,4,201,95,240,3,7 
6,231,167,32,115,0,201,49,208,8,169,4 
40 DRTR 141,I36,2,76,59,192,201,50,208,3 
5,169,8,141,136,2,32,115,0,32,115,0,201 
50 DRTR 49,208,8,169,21,141,24,208,76,15 
9,192,201,50,208,84,169,37,141,24,208 
60 DHTR 76,159,192,201,80,208,72,32,115, 
0,201,49,208,31,165,43,201,1,240,’ 3,162 
70 DRTR 0,181,43,157,182,192,232,224,14, 
208,246,202,189,168,192,149,43,224,0 
80 DRTR 208,246,76,159,192,165,43,201,1, 
208,22,162,0,181,43,157,168,192,232,224 
90 DRTR 14,208,246,202,189,182,192,149,4 
3,224,0,208 246,32,115,0,76,174,167,76 
100 DRTR 8,175,1,12,3,12,3,12,3,12,240,8 
5,0,0,240,85,241,85,243,85,243,85,243 
110 DRTR 85,0,160,0,0,0,160,26,76,106,19 
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e il Simon’s basic era già un valido aiuto per chi 
si accingeva alla realizzazione di programmi grafi¬ 
ci, ora, con l'aggiunta del nostro programma le fa¬ 
tiche del programmatore sono veramente ridotte ai minimi 
termini Infatti basterà disegnare con il joystick la scher¬ 
mata desiderata e sarà l’utility CRAJON a scrivere per voi 
il programma in Simon’s basic corrispondente. 

Il principio di funzionamento è simile a quello del pro¬ 
gramma autosprite, pubblicato sul numero di settembre: 
editare delle nuove linee di programma, mentre il pro¬ 
gramma stesso stà girando. Questa tecnica è chiamata 
tastiera dinamica, viene realizzata manipolando il buffer 
di tastiera. 


Come si usa Crayon 

Appena digitato il comando RUN, appare una schermata 
di presentazione corredata di alcune telegrafiche istruzio¬ 
ni per l’uso che ora approfondiremo insieme. 

Premendo il tasto di return vengono richiesti i codici per il 
colore dello sfondo e del disegno, dopodiché apparirà la 
matita da muovere con il joystick per disegnare. 

In basso a destra vengono visualizzate cinque lettere, 
ognuna delle quali rappresenta una specifica funzione 
che potrà essere attivata digitando il carattere corrispon¬ 
dente. In questo caso una piccola freccia indicherà che la 
funzione è diventata operativa. Esaminiamo le cinque fun¬ 
zioni: 

‘V’ permette di spostarvi a vuoto con la matita, senza 
quindi disegnare e viene attivata automaticamente all’ini¬ 
zio del programma. Ovviamente basta premere il tasto ‘V’ 
e la matita comincerà a disegnare. 


‘C’ serve per tracciare dei cerchi: prima di tutto ci si po¬ 
siziona con il joystick sul punto prescelto come centro 
della circonferenza e si preme il tasto ‘C’; in questo modo 
verrà disegnato un punto per fissare il centro. Poi bisogna 
allontanarsi dal centro a seconda del raggio desiderato e 
premere di nuovo la lettera ‘C’: verrà disegnata la circon¬ 
ferenza richiesta e il punto di centro sarà cancellato. È 
comodo attivare la funzione ‘V’ durante l’esecuzione dei 
passi precedenti, in maniera tale che solo il cerchio sia 
tracciato. 

‘S’ sceglie il colore del disegno se desideriamo cambiar¬ 
lo durante l’esecuzione della schermata. La funzione ‘P’ 
(PAINT) riempie di colore aree chiuse: basta posizionarsi 
con il joystick all'Interno dell’area da riempire e premere il 
tasto ‘P\ 

‘L’ traccia le linee: ci si posiziona sul punto di partenza 
e si preme ‘L’, poi ci si sposta sul punto di arrivo e si pre¬ 
me di nuovo ‘L’. Verrà così disegnata la retta passante 
per i due punti. 

Per comunicare che il disegno è terminato, basta premere 
il pulsante di sparo del joystick e le nuove linee di pro¬ 
gramma saranno editate a partire dalla linea 1000. In pra¬ 
tica il programma edita queste linee anche durante tutta 
l’esecuzione del programma, ogni volta che il buffer di ta¬ 
stiera è pieno. Quindi non spaventatevi se periodicamen¬ 
te, mentre state disegnando, la schermata scompare e 
vengono visualizzate le linee di programma: in pochi se¬ 
condi tutto torna a funzionare normalmente. Quando il di¬ 
segno sarà ultimato, il programma risultante sarà conte¬ 
nuto a partire dalla linea 1000: tutte le linee precedenti 
potranno essere eliminate. 

Ricordate, prima di digitare il listato, di caricare e lancia¬ 
re il ‘simon’s basic’, necessario al funzionamento di 
‘CRAYON’. 
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LIST 


1 


LIST 


2 


10 DRTft 990 

20 DESIGN 0,2176+49152 


30.BB... 

40 .BBB. . . 

50 .BBB_ 

60 .BBB. 

70 .BBB. 

80 .B. 

90 .B...B. 

100 .BBB. B. 

110 .BBB. B. 

120 .BBB. B. 

130 .BBB.B. 

140 .BBB. 

150 .BBB. 

160 .BBB. 

170 .BBB. 


180-BBB. 

190 ...BBB. 

200 ..BBB. 

210 ..BB. 

220 .B... 

230 B. 

240 PRINT"3M0 >a : CENTRE "SCRflVON" = FRI NT : P 
RI NT MENTRE "SUDI GIAN PIERO ROSI*" 

250 PRINT"*«« • :PRINT"V= SPOSTAMENTO fl VU 
QTO" : PRINT"fcC= CERCHI" 

260 PRINT"WS* SCELTA NUOVO COLORE" :PRINT 
":eF= PAINT (COLORA UN' AREA) " 

270 PRINT"*L= LINEE":PAUSE "MMWPREMI RE 
TURN PER CONTINUARE...",500 
280 COLOUR 2,2: POKE 198,0:1 NPUT 1 THUI»WUO 
I DISEGNARE (S/N)"; PS ■ IFR*="N"THENEND 
290 INPUT ,, W»ì»COLORE DISEGNO E SFONDO”, D 
S,SF ; READLI : Q=2 

300 LI=LI +10 ; N=LI : GOSUB330 ; L*(0)=N*+ ' ’ " 

310 IFLI=1000THENN=SF:GQSUB330: L$ (0)=L*( 

0)+"HIRES"+STR*(DS)+","+NS 

320 HIRES DS,SF:GOTO890 

330 N$=STR*(N):N*=RIGHT*(NS,LEN(N$)-1):R 

E TURN 

340 X(1)=160 X<2)=100 ; X(3)=X(1) : X(4)=X<2 
):L=0:Q=2 

350 TEXT 240,5, "SflSiSJJPER JIDiSFRWER", 1, 1,6 ; 
TEXT 240,170,"V C S P L",1,1,6 
360 A$="V" •’ GOSUB750 : MOB SET 1,34,DS,0,0: 
RLOCMOB 1,184,129,0,60 
370 : 

380 REM #**# LETTURA JOV & KEV **** 

390 : 

400 GETA*: IFA*O ’*’ THENGOSUB550 : GOSUB750 

410 B=JOV : IFB=0THEN400 

420 IFBOATHENGOSUE550 

430 IFB=1QRB*20RB=8THENX(4)=X C 4)-1 

440 IFB>3ANDB<7THENX(4)=X(4)+1 

450 IFB>5ANDB<9THENX(3 > =X(3)-1 

460 IFB>1ANDB<5THENX(3> =X< 3) +1 

470 IFB=128THEN700 

480 IFVTHENX(1)=X(3) : X(2)=X(4) : A=0 : G0T05 
00 


490 PLOT X(3),X(4),1 

500 RLOCMOB 1,X(3)+24,X(4)+29,0,1 : GOT040 
0 

510 : 

520 : 

530 REM *M* CREAZIONE ISTRUZIONI #**# 
540 : 

550 IFA=0THENA=B:RETURN 

560 J$=“" : ONQGOTO570,590,600,610 

570 T*="CIRCLE ":X<1)=XC:X(2)=VC=F0RI=1T 

02 : N 3 X(I) : GOSUB330 : T$=T*+N*+ 1 ’," 

580 NEXT:N=RX:GQSUB330:T$=T$+N$+","+N*+" 
," : GOTO620 

590 T*="LINE ” : F0RI=1T04 : N=X(I) : GOSUB330 

:T*=T*+N*+",":NEXT:GOTO620 

600 N=SF : GOSUB330 : T*= ’ ’LOW COL"+STR*(DS) + 

","+N*+"," : LOW COL DS,SF,1 ; GOTO620 

610 N=X<4):GOSUB330 : T*="PAINT"+STR*(X(3) 

)+","+N$+"," : GOTO620 

620 Q=2:T$=T$+"1":X(1)=X(3):X(2)=X(4) 

630 IFLEN(L*(L))+LEN(T* ><75THEN650 
640 L=L+1 : LI =L I +10 ; N-LI •’ GOSUB330 : L* ( L ) =N 
*+" " GOTO660 

650 IFLEN(L*<L)»5THENL*(L)=L*(L) + " : " 

660 L*(L)=L*(L)+T* ; A=B:IFLC6THENRETURN 
670 : 

680 REM **** AUTO-EDITING LINEE **** 

690 : 

700 PRINT 1 TDflM'’ :FORI=0TOL ; PRINTL*(I>:NEXT 
:FORI=631TO640:POKE1,13:NEXT:POKE198,10 
710 PRINT"10 DATA"LI : PRINT"RUNA"; : MOB OF 
F 1 : END 
720 : 

730 REM **** COMANDI TASTIERA **** 

740 : 

750 IFA$="V"THENV=NOTV:CHAR 240,180,30,A 
BS(V),1 : RETURN 

760 IFA$="C"THENC=NOTC ; CHAR 252,180,30,A 

BS(C),1 : ELSE : GOTO810 

770 IFCTHENV1=V : V=-l:GOTO800 

780 V=V1 :RX=SQR<(XC-X(3))T2+(VC-X<4 >> t2 > 

:CIRCLE XC,VC,RX,RX,1 : PLOT XC,VC,0•Q=1 
790 GOTO870 

800 XC=X(3):VC=X(4)•PLOT XC,VC,1 : RETURN 

810 I Ffl$ = ' ’S 1 ’THENNRM ' MOB OFF 1:1 NPUT l 'XOL 

ORE DISEGNO";DS: ELSE :GOTO830 

820 Q=3 ; CSET 2:MOB SET 1,34,DS,0,0:GGT08 

70 

830 I FA$= '*P 1 'THENQ-4 : PAI NT X< 3>, X( 4 ), 1 : GO 
T0870 

840 IFA*="L"THENLN=NOTLN ; CHAR 288,180,30 

,ABS(LN),1 : ELSE : RETURN 

850 IFLNTHENV1=V:V=-1 :GOTO800 

860 V=V1 :LINE XC,VC,X(3>,X<4),1 :X<1>=XC• 

X(2)=VC 

870 GOSUE560: RETURN 
880 : 

890 REM **M. AUTO PROGRAMMA **** 

900 : 

3000 GOT0340 
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PROGRAMMA 


di Marcello Zerbini 


C64 




copo di questo originalissimo videogioco è quello 
di costruire dei puzzles. Dopo aver dato il «RUN», 
apparirà una schermata di presentazione del gio¬ 
co e successivamente verrà visualizzato un disegno che il 
C 64 scomporrà e toccherà a noi tentare di ricomporre. 
Naturalmente è possibile avere a nostra disposizione, ac¬ 
canto alla figura da ricomporre, la figura originale. 

Una volta terminato di comporre la prima figura ci verrà 
mostrato il tempo impiegato. Il gioco si snoderà così fino 
alla quarta figura. Finito di comporre la quarta ed ultima 
figura si avrà l’opportunità di creare delle nuove figure a 
nostro piacimento oppure di ripetere il gioco nel tentativo 
di migliorare il tempo di «ricomposizione» delle figure. 
Buon divertimento. 


LIST 1 


0 G0SUB378 

2 PRINT"T" p=40:Q=P/2+2 : R=0 
4 IFW=0THENWW=1 
6 IFW=1THENUW=2 
8 IFW=2THENWW=3 
10 IFU=3THENUW=4 
12 IFFF=1THEH18 

14 INPUT'VUOI LR FIGURA IN AIUTO ",W* 

16 IFWSO ' ’S ' 'RNDWIO ' *N 1 THENRIJN 
18 PRINT'73 FIGURA "WN" 3FUZZLES "ADI 
20 A$= * *' 1 : fi -1 147 
22 PRINT 1 ’M ABCBEFGH" 

24 PRINT" i-r* 

26 FGRK= 1T08 PR INTK "13 ■ I ' *K 

28 NEXTK 

30 PRINT" 1 - 

32 PRINT" ABCDEFGH" 

34 IFFF=1THEN38 
36 I FW$ = 1 ’S ’ THENGOSUB169 
38 FORX= 1T08 F0RV= 1T08 
40 PERDA<X.. V> ^ B<X, V>=A«• X, V> 

42 P0KEA+P#Y+X,A<X,V> 


44 NEXT NEXT 

45 IFR=0THENR=1 PRINT “m PREPARO IL PUZZ 
LE" 

47 IFFF=1THEN344 

48 I FUI= 1 ’S 1 THENGOSUB 180 

50 DEFFNA<Z > = INT <RND<1>+8+1> 


LIST 2 


52 

F0RX= 

1T08 

F0RV= 

1T08 

54 

XX=FNA '. Z > 

V 

V=FNA<Z> 

56 

IFB<X 

x, vv; 

i = 

-1THEN54 

58 

C < X . V 

>=BO 

:'V 

, VV> 


60 

B < XX .* 

vv>=- 

-l 

: NEX 

t : ne: 

62 

F 0RX= 

1T08 

F0RV= 

1T 08 

64 

POKEfi+P*Y+X 

.• C '• X 

.• V > 

66 

NEXT : 

NEXT 




68 

F0RX= 

1T08 

: F0RV= 

1T 08 

70 

B < X .• V 

>=CO 

l 

v> 


71 

NEXT ^ 

NEXT 





72 I FUI = • ’S ■ THENPRI NT 1 ’T 

73 IFW*="N"THENPRINT"T 3HE5 = AIUTO 

74 PRINT Al.: 

76 INPUT"SRETURN5 PER COMINCIARE *11"; TI 
78 TI$="000000" 

80 PRINTfil; F0RU=17 025 PRINT" " ; :NEXT 
82 PR INTfil : •' INPUT ' ‘DA .♦♦«*■■1' ’ ; XI 

84 IFXI= '"THEN120 

85 IFX!=‘ 'HE ' THENF1 = 1 GOSUB168 :GOTO400 

86 IFLEN < XI ) >2THENPR I NT ' ’.TTT ' : G0T082 

88 IFLEFTKXI, 1 X"A"0RLEFT* <X# ■ 1 »"H"THE 
N82 

90 IFRIGHT! < X! . 1 > < "1 ' 'ORRIGHT! X! , 1 )> * *8 ‘ T 
HEN82 

92 printai; 

94 INPUT "A **1IBU"; 

V! 

96 IFLEN<V!)>2THEN82 

98 IFLEFWt'*, 1 >< "fi '’ORLEFT $ <V!.• 1 »"H"THE 
N92 

160 I FR I GHTI < V!, 1 > C " T'ORR IGHT! < V!, 1 >> ' '8 ' ' 
THEN92 

102 X=fìSCCLEFT!<X!.. 1 >>-64 
164 V=VAL <RIGHT IT XI, 1> > 

106 X1 =ASC < LEFT! V!, 1 > > -64 
108 V1 =VAL RI GHT#< VI. 1 > > 

110 POKEfi+P*Y+X .• C < X1 . V1 > 

112 POKER+P*V1+X1,C <X,V> 

114 C=C<X1,V1> :d=C<X.-V> 

116 C<X1,V1>=C1 : C<X,V>=C 
118 GOT030 
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LIST 


120 
122 
124 
126 
128 
130 
132 
E 

134 

136 

138 

140 

142 

144 

146 

148 

150 

152 

154 

156 

158 

160 

162 

164 

166 

168 

169 

171 

172 
174 
176 
178 
180 

182 
184 
186 
188 
190 
192 
194 
196 
198 
200 
202 
204 
206 
208 
210 
212 
214 
216 
218 
220 
222 
224 


D=64 

FORX= 1T08 : FOR't- 1T08 
IFFKX, V>OC(X, V>THEND=D-1 
NEXT:NEXT 
IFD=64THENTf=TI$ 

IFD=64THENPRINTA*,"HAI FINITO IH 
IFD=64THENPRINTMID$< T $, 3, 2> " NINUTI 

IFB=64THENPRINTMIB$ <T$, 5,2>" SECONBI 

IFB=64RNBW=0THENFORK=1TO3000 : NEXT 
IFD=64ANDW=0THENPRINI ' ' 1' 1 
IFB=64RNBU=0THENW=1 G0T02 
IFD=64RNDW=1THENFOPK=1TO3000:NEXT 
I FD=64RNDW= 1THENPRI NT ' * 

IFB=64ANDW=1THENN=2 G0T02 
IFD=64RNDW=2THEHFORK=1TO3000 : NEXT 
I FD=64RNDU=2THENPRINT l 73' * 
IFB=64ANDW=2THENW=3 G0TG2 
IFD=64RNDW=3THENFORK=1TO3000 NEXT 
IFD=64ANDW=3THENPRINT 1 73' ' 

IFD=64ANDW~3THENW=4 : G0T02 
IFIi=64RNBW=4THENFORK=lTO3000 ; NEXT 
IFD=64ANDW=4THENPRINT‘*MSFINE GIOCOS* ' 

IFD=64ANDW=4THEN252 
GOT080 

1 FUÌ= ‘ ’S ‘ •RNDX$= l ‘HE ' ’THENF 1 =0 GOTO 180 
PRI NT • 'Am ’TRB < Q) " RBCBEFGH ' ' 

PRINTTRB(Q) " r-. " 

F0RK=1T08 

PRINTTAB<Q)K’’13 ■I"K : NEXT 

printtrbcq:)" 1 - 

PR INTTRB 0 > ' ' RBCBEFGH 11 

FORX=1T08^ FGRV=1T08 


PQKEA+P* 
NEXT:NEX 
RETURN 
DRTR 78, 
DRTR 99, 
DRTR 99, 
DRTR 99, 
DRTR 99, 
DRTR 99, 
DRTR 99, 
DRTR 77, 
DRTR 96, 
DRTR 78, 
DRTR 77, 
DRTR 85, 
DRTR 73, 
DRTR 78, 
BRTR 77, 
DRTR 96, 
DRTR 96, 
DRTR 87, 
DRTR 96, 


V+X+Q,R<X,V> 
T 


101,101, 

85.96.96 
64,81,85 

73.93.75 
85,93,74 
64,81,73 

73.96.96 
103,103, 

78.96.96 

96.96.96 
96,96,78 

77.78.96 

78.96.96 

96.96.96 

96.96.96 

77.96.96 

96.79.76 

96.119.1 

77.119.1 


101.77.96.96.96 
,96,77,96,96 

74,60,77,96 
64,99,99,99 
64,99,99,99 
'5,62, 78, 96 
,96,78,96,96 

103.78.96.96.96 
,96,102,12,102 
,96,102,96,102 

,96,102,9,102 
,96-102,96,102 
•96,102,19,102 
•96,102,96,102 
.96,102,20,102 
.96,102,96,102 
77,96,96,102 

11.96.77.96.102 

11.96.96.77.102 


226 DRTR 81,66,119,111,96,96,111,102 
228 DRTR 96,78,119,111,96,96,111,102 
230 DRTR 87,96,119,111,96,96,78, 102 
232 DRTR 96,96,119,111,96,78,96,102 


LIST 

234 

DRTR 

96, ' 

236 

DRTR 

102 

238 

DRTR 

102 

240 

DRTR 

102 

c -4 2 

DRTR 

102 

244 

DATA 

102 

246 

DRTR 

102 

248 

DRTR 

102 

250 

BRTR 

102 

252 

p RINT"n 

I DATRB" 



19,102,7,102,102,102,182 
■5,102,9,1,102,6,102 
.9,102,21,12,102,9,102 

102.15.14.12.102.14.102 

102.18.20.1.102.5.102 

102.1.15.102.102.102.102 

102.102.102.102.102.102.102 

«SOSTITUZIONE DEI 'VALOR 


254 PRINT-W DOVRAI ORA DIGITARE I VALORI 
NUMERICI DEL CODICE PQKE" 

256 PRINT" PER POTER FORMARE UN'ALTRO DI 
SEGNO " 

258 PRINT" R PIACERE,DI TUO GRADIMENTO." 


274 

276 


260 PRINT"- 

262 PRINT"M-INSERÌSCI PRIMA IL NUMERO IN 
CHR$" 

264 PRINT" PREMERE LR VIRGOLA PER CONFER 
MARE" 

266 PRINT"MF-SE VORRAI ANNULLARE LR LINER 
DOVRAI PREMERE RETURN" 

268 PRINT" INSERENDO NUOVAMENTE I VALORI 
NUMERICI " 

270 PRINT"«UFI = NUOVA FIGURA" 

272 PRINT"»F3 = FINE " 

GETRT•IFR$= * ‘ ‘ THEN274 
I FRf= 1 THEN354 
278 I FRi = 1 THENPR I NT 1 LT * : END 
280 G0T0274 

282 PR I NT "73" : LN=RC : I N=2 

284 P0KE822,0•G0SUB316•P0KE822,IN 

286 LN=PEEK<820 > +PEEK(821>#256 RT=STR$(L 

N> ^ D$=RIGHT$<R$,LEN<R$>-1> + " Dt RS=0 

288 8$="":PRINT’TT'Df : IFRS=8THENAS=0 : GOTO 

302 

290 GETK$:IFK$=""THEH290 

292 IFKf=CHR$ <20 > RNDLEN(A$> >0THENR$=LEFT 

$ <RT,LEN<Hf>-l> PRINTKf; :GOTO290 

294 IFK$=CHR$ <13 > THEN302 

296 IFK*=","THEND$=D$+R$+K$ AS=RS+1•GOTA 

318 

298 IFK t < 1 *0 1 ’ORKf> ' *9 * THEN290 

300 R$=fl$+K$ : PRINTKT ; •' GOTO290 

302 IFRSOVRLCR*) THENPR INT"fiWW ## V 

RLORI ANNULLATI **" 

304 IFASOVAL < RT > THENPR I NT l ‘WSFETIJRNB = C 
RNCELLI DALLA LINER"LN"RLLR LINER 192" 
306 IFASOVRL<R$>THENPRINT"MS®IVERSO DA 
RETURNB = INCREMENTO DALLA LINER"LN; 

308 IF ASO VAL < R$ > THENPR I NT * ‘ALLA LINER 19 
2 " 

310 I FRSOVfìL < RT > THENPOKE198,0 : WRIT198.1 
:RUN286 

312 G0SUB316 •' PR I NT * *R ,286 11 : P0KE631,19 PflK 
E632,13 : P0KE633,13 P0KE634,13 

314 P0KE198.4 END 


► ►► 
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GIOIELLI DELLA 


I PUZZLE C 64 


ROBOTICA 


LIST 5 


316 LN=LN+PEEK < 822 > HX=LN/256 P0KE821, HX 
: PGKE820, LN-HX*256 ; RETURN 
318 I FAS=8THEND$=LEFT* ( D*, LEN < D* > - 1 +CHR 
$< 13> ; GOTO288 

320 IFLH=204THENFF=1 PRINT' 'WSFINE URTA " 
W=0 : G0T02 

322 IFLN=220THENFF~1'PRINT' MtìFIHE DRTfl " 

:N=0 : G0T02 

324 I FLN=236THENFF~ 1 : PR INT ' ' JIMF I NE DRTfl " 

: W=0 : G0T02 

326 I FLN=252THENFF =1 PRINT ' ’MHF I NE DRTfl " 
W~0 : GOT02 
328 GUIU288 

330 PRINTRIDEVI REGISTRARE IL NUOVO PROG 
RAMMA" 

332 PRINT"*M1> = SE HAI IL REGISTRATORE" 

334 PRINT'’M2> = SE HAI IL DISK DRIVE" 

336 GETGT IFGf= ‘' 'THEN336 

338 I FG$= " 1 '’THENPR I NT 1 TT ' : SAVE ' 'PUZZLE ' ' : RU 

N 

340 IFGf~‘'2'’THENPRINT'"TIOME DELLA FIGURA 
"; : INPUTADT : SAVE ' 'PUZZLE ' '+ADT, 8 : PUH 
342 GOTO336 
344 PRINT"WPTTUTTO OK" 

346 GETAAT: IFAAi = ' ' ' ‘THEN346 
348 I Fflfl*= ' *S ' ‘THENFF=0 GOTO330 
300 IFAA$= ' 'N ' THENFF=0:G0T0252 
352 GOT0346 

354 PRI NT "SCELTA FIGURA DA SOSTITUIRE" 
356 PRINT"HM1) = PRIMA FIGURA" 

358 PRINT"W2) = SECONDA FIGURA" 

360 PRI NT "HI?:.' = TERZA FIGURA" 

362 PRINT'VW> = QUARTA FIGURA" 

364 PR I NT ' '.GWEÌUALE 

366 GETREf•IFRET=.THEN366 

368 I FRE-f= " 1''THENAC-188 ' G0T0282 
370 IFRE$= ' '2 ' THENAC=204 G0T0282 
372 IFRE$= ' '3 ' THENAC=22U G0T0282 
374 IFRE$='4 ' 'THENAC=236:G0T0282 
■376 GOIU366 
378 rem 

•380 REM I PUZZLE ********** 

382 REM ** DI ** 

384 REM ** ZERBINI MARCELLO & FABIO *+ 
386 REM ** PER CBM 64 PER GLI AMICI ** 
388 REM ** DI LIST ** 

390 REM ******************************* 
392 PRINT'TT'TAB( 15 )''.mmi PUZZLE!'' 

394 PRINTTAB(19 >"WWW® I «««' ' 

396 PRINTTAB(8>"ZERBINI MARCELLO & FABIO 

398 FORTT=1TO3000■NEXT RETURN 

400 IFF1=0THEN80 

402 FORT=1T05000'NEXT 

404 FORX=1T08 :FORV=1T08 

406 POKFA+P*V+X+Q,96 

408 NEXT:NEXT 

410 GOT080 


ECCO I FAMOSI KIT “MOVIT” PER 
GLI APPASSIONATI DEL “FAI DA TE” 



LINE TRACER II MV-913 

Guidato da un sensore a raggi 
infrarossi questo robot segue 
qualsiasi linea nera tracciata su un 
foglio bianco L. 115.000 



MEMOCOM CRAWLER MV-918 

Questo robot è controllato da una 
memoria RAM 256x4 bit. mediante 
la tastiera inclusa nel kit e si muove 
in base ai comandi comunicati a 
quest ultima L.149.000 



PIPER MOUSE MV-915 

Usando un fischietto unito al kit 
PIPER MOUSE eseguirà 
immediatamente i comandi 
comunicativi sinistra, stop, destra, 
stop, avanti e stop L.89.000 



CIRCULAR MV-935 

È provvisto di due grandi ruote che 
gli permettono di ruotare in avanti, a 
destra, a sinistra e su se stesso. 
Tutti i movimenti sono controllati 
mediante un comando a distanza. 

L.149.000 



NAVIUS MV-938 

É un robot controllato mediante 
dischetti programmabili È in grado 
di riconoscere il bianco e il nero del 
dischetto programmato e quindi 
muoversi in avanti, a destra, a 
sinistra o fermarsi. L.115.000 


MEDUSA MV-939 

Il robot dal cervello elettronico. 
Registrati i comandi, il robot inizierà 
a muoversi femandosi 
automaticamente passato il tempo 
prestabilito 
L.65.000 


PRODOTTI IN GIAPPONE - DISTRIBUITI IN ITALIA 
da TEXIM ITALIA s.r.l. - Via Flavio Stilicone, 111 
C.A.P. 00175 - Roma - Tel. 7665495 

Per riceverli: 

Inviare l’importo al detto indirizzo, a mezzo VAGLI/ 
POSTALE o ASSEGNO BANCARIO N.T. in busta chiusa. 
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PROGRAMMA 


SPECTRUM 


VIDEOGAME 



AST LANDER è un gioco di simulazione. Dovete 
riuscire a far atterrare la vostra navicella in uno 
spazio piuttosto esiguo su un pianeta alquanto 
inospitale. 

Il movimento della navetta risulta molto realistico grazie 
ad una routine in linguaggio macchina, a cui è anche affi¬ 
dato il compito di rilevare l’impatto con il suolo. 

Digitate con calma il listato e i codici decimali e poi date 
RUN 800. Il programma visualizzerà le istruzioni mentre 
verrà allocato il linguaggio macchina. Ad operazione ulti¬ 
mata incomincerà il gioco con la visualizzazione del terre¬ 
no roccioso, del modulo spaziale e della piattaforma di at¬ 
terraggio. I comandi per la guida sono i seguenti: 

tasto 1 accelerazione verso il basso 

tasto 2 bilanciamento della forza di gravità 

tasto 3 accelerazione verso l’alto 

tasto 8 virata a sinistra 

tasto 9 ritorno alla posizione verticale 

tasto 0 virata a destra 

Evitate di cambiare i numeri delle linee durante la fase di 
copiatura del programma in quanto qualche istruzione di 
solito utilizza dei parametri variabili. 

Vi assicuriamo che il gioco non è affatto semplice come 
potrebbe sembrare a prima vista: bastano un paio di parti¬ 
te per rendersene conto. Se poi siete dei provetti piloti al¬ 
lora potete aumentare il livello di difficoltà dando GOTO 
3000 e poi RUN. 


LIST 


1 

1 

REM 

********************** 

o 

REM 

* FAST LANDER * 

y, 

REM 

* ANGELO COCCETTI NI * 

4 

REM 

* GIULIO VANNINI * 

5 

REM 

* COPYRIGHT LIST 1987* 

6 

REM 

********************** 

7 s 



9 

GO 

SUB 400 

10 

GO 

SUB 100+PEEK 23560 

20 

LET 

SK=sx+ax: LET sy=sy+ay: 

LET 

x-x 

+sk : LET y=y+sy 

24 

POKE 32300, x : POKE 32301,19 

2-y: 

GO 

TO USR 32308 

147 

RETURN 

148 

LET 

ax=q: POKE 32302,96: RE 

TURN 
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3 


DATA ERROR": STOP 

824 IF a>255 AND tot/2=a THEN 
LET tot=0: GO TO 815 

825 POKE loc,a: LET loc=loc+l 
830 GO TO 815 

850 PRINT AT 14,0;" Premi un 
tasto per iniziare " 

860 IF INKEY*="" THEN GO TO 86 

0 

870 CLS ; BOEDER ls GO TO 5 
1000 PRINT AT 0,0; 

1030 IF <sy*sy+sx*sx ) >. 05 OR y>4 
0 THEN POKE 32302,112: RANDOMI 
ZE USR 32308: RANDOMIZE USR 3239 
3: PRINT FLASH 1 ;" DISTRUTTO!": 

LET score= 200--INT (y) : GO TO 1 
050 

1034 IF (x >106 OR x<103) THEN P 
RINT FLASH 1;" MANCATO!": FOR i 
=--1 TO 4: FOR j=20 TO 12 STEP -2: 

BEEP .01,j: NEXT j: NEXT i: PLO 
T 107,4: DRAW 0,24: PRINT AT 1,0 
: LET seore=400-INT (ABS (x-104. 
5)): GO TO 1050 

1038 BEEP .2,20: BEEP .3,10: LET 
t0=INT ((FN t(23672)~t0)/50): P 
RINT FLASH 1;"ATTERRATO IN " ; t0 
;" SEC.": LET score=INT (400+200 
/t.0) : FOR u=l TO 500: NEXT u: G 
0 TO 1050: 

1050 PRINT "PLJNTEGGIO="; score: G 
0 TO 850 

1100 IF y<8 THEN LET y=8 
1110 IF y>191 THEN LET y=191 
1120 LET sy=~sy: GO TO 24 
1200 IF x<0 THEN LET x=0 
1210 IF x >247 THEN LET x=247 
1220 LET sx=~sx: GO TO 24 
1500 DATA 088,127,160,160,088,12 
7,042,048,126,237,091,050,126,20 
5,061,127,042,044,126,001,076,00 
4,124,214,184,208,001,176,004,12 
5,214,248,208,034,048,126,237,09 
1,046,126,237,083,050,126,213,20 
5,204,126,209,001,010,000,040,00 
3,001,232,003,197,213,229,033,19 
2,064,205,07446 

1510 DATA 176,126,033,128,072,20 
5,176,126,033,032,072,205,156,12 
6,033,224,072,205,156,126,225,20 
9,205,038,127,193,201,014,000,03 
3,196,126,006,000,016,254,126,21 
1,254,035,013,032,245,201,000,00 
0,017,032,000,014,008,126,025,02 
3,006,032,043,203,022,016,251,03 
6,013,032,06341 

1520 DATA 242,201,125,246,031,09 
5,014,008,006,032,084,026,031,20 


LIST 


3,030,035,016,251,125,214,032,11 
1,036,013,032,238,201,000,000,00 
0,229,205,230,126,014,008,197,20 
5,010,127,166,032,004,121,035,16 
6,043,193,032,003,013,032,239,22 
5,201,000,213,085,203,061,203,06 
1,203,061,06624 

1530 DATA 124,079,015,015,015,23 
0,024,071,124,230,007,176,198,06 
4,103,121,135,135,230,224,133,11 
1,122,230,007,071,209,201,036,06 
2,007,164,032,010,125,198,032,11 
1,056,004,124,198,248,103,175,07 
9,176,026,019,200,031,203,025,01 
6,251,201,229,205,230,126,014,00 
8,197,205,07530 

1540 DATA 010,127,182,119,035,12 
6,177,119,043,193,013,032,241,22 
5,201,229,205,230,126,014,008,19 
7,205,010,127,238,255,166,119,03 
5,121,238,255,166,119,043,193,01 
3,032,237,225,201,000,060,126,12 
6,060,060,066,195,028,062,126,12 
6,062,068,194,003,056,124,126,12 
6,124,034,07802 

1550 DATA 067,192,036,129,090,06 
0,060,090,129,036,001,015,031,06 
3,063,063,031,007,240,248,252,25 
2,252,248,248,048,024,124,124,06 
0,009,097,240,096,000,028,255,25 
5,255,254,252,012,000,000,192,24 
8,112,000,003,003,000,000,000,00 
0,000,000,000,000,000,000,000,00 
0,000,000,05594 
1560 DATA 20000 


2000 
R *" 

PRINT " 

* FAST LANDE 

2005 

PRINT 


2010 

PRINT "CI 3 

accelerazione in 

basso" 


2012 

PRINT 


2013 

PRINT "C2 3 

b i I an eia mer i t o f o 

rza gravi t.a ' " 


2015 

PRINT 


2020 

PRINT "C33 

accelerazione in 

alto" 


2025 

PRINT 


2030 

PRINT "C8 3 

virata a sinistr 

a" 

2035 

PRINT 


2040 

PRINT "C93 

ritorno posizion 

e verticale" 


2045 

PRINT 


2050 

PRINT "C 0 3 

virata a destra" 

2060 

RETURN 


3000 

POKE 32442 

,0: POKE 32443,23 


7: POKE 32444,103: POKE 32419,0: 
POKE 32423,237: POKE 32424,111 
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PROGRAMMA 



SPECTRUM 


di Giulio Vannini 



sadecimale usan truM 

ia del vostro _ 


Introduzione 


Commento al Listato Assembler 


O utti i possessori di Spectrum avranno notato la 
solita cronica lentezza dell’interprete BASIC. Que¬ 
sta lentezza del BASIC limita considerevolmente il 
campo di applicazione del computer in quei settori dove è 
proprio la velocità la base essenziale dell’intero program¬ 
ma, come per esempio nei videogiochi. Qualcuno potreb¬ 
be puntualizzare che in definitiva gli Arcades non sono 
l’applicazione più seria per un computer e che esistono 
dei validissimi programmi in BASIC di gestione, di studio, 
ecc. Le affermazioni di tali utenti sono perfettamente logi¬ 
che e in gran parte condivise da tutti noi. È chiaro comun¬ 
que che la scarsa velocità dell’interprete ci toglie la pos¬ 
sibilità di scrivere un bel programma di animazione che 
dà senz’altro molte più soddisfazioni di uno di gestione. 
Per questo motivo da questo numero inizieremo la pubbli¬ 
cazione di una serie di routine in linguaggio macchina 
molto utili sia dal punto di vista applicativo che da quello 
didattico. Infatti oltre ai normali codici nelle solite linee 
data verrà proposto anche il listato in ASSEMBLER com¬ 
pleto di commenti. In questo modo speriamo di avvicinare 
l’utente Spectrum ad un linguaggio che permette opera¬ 
zioni decisamente impossibili al BASIC, fornendo allo 
stesso tempo alcune piccole routines che si riveleranno 
molto utili durante la stesura dei programmi. 


Dec-Hex Converter 


La prima routine che incontriamo converte un numero de¬ 
cimale N compreso tra 0 e 65535 nella sua rappresenta¬ 
zione esadecimale stampando il risultato sullo schermo. 
Per utilizzare la routine non servono strani POKE per pas¬ 
sare il numero alla routine; infatti basta digitare in modo 
diretto o da programma 

RANDOMIZE N + USR 60000 

La routine chiamata con la USR preleva dallo STACK del 
calcolatore il numero N e lo traduce in esadecimale, prov¬ 
vedendo a visualizzarne il formato sullo schermo. Così, se 
battete 

RANDOMIZE 65518 + USR 60000 

otterrete 

HEX(65518) = FFEE 


Linee 40-90 

Definizione delle costanti numeriche per l’ASSEMBLER. 

Linee 100-180 

Si controlla se il numero N è stato passato al L/M con là 
istruzione RANDOMIZE N od una equivalente (PRINT N + 
USR 60000, LET a = N + usr 60000, ecc). Ciò viene fatto 
sottraendo all’indirizzo memorizzato nella variabile di si¬ 
stema STED, che punta la fine dello STACK del calcolato¬ 
re, il numero STBT, che ne definisce l’inizio. Se non si ot¬ 
tiene il numero cinque, equivalente allo spazio occupato 
da un numero nella rappresentazione in Floating Point, 
viene generato un messaggio di errore con l’istruzione 
RST 8 seguita dal codice dell’errore-1. 

Linee 190 e 200 

Si carica l’accumulatore con il numero due e si apre il ca¬ 
nale associato allo schermo, che è appunto quello #2, 
chiamando una subroutine nella ROM. 

Linee 210-230 

Altre chiamate alla ROM. Si preleva il numero N dallo 
STACK del calcolatore chiamando UNSTK, che trasporta 
il numero nei registri BC generando un messaggio di erro¬ 
re se N > 65535. Si salva temporaneamente N sullo 
STACK del linguaggio macchina (che da questo momento 
chiameremo semplicemente stack) e ripristina il valore 
sullo STACK del calcolatore (si badi bene che lo STACK 
del calcolatore non coincide con lo stack). 

Linee 240-360 

Viene stampato il messaggio HEX(N)= con una serie di 
chiamate alla ROM (RST 16 con l’accumulatore A che 
contiene il codice da stampare). Il numero viene stampato 
dalla ROM-routine PRSTK. 

« 

Linee 380-490 

Il numero N supposto a 16 BIT viene diviso in quattro nu¬ 
meri da 4 BIT; ognuno di questi valori è tradotto nella rap¬ 
presentazione esadecimale e poi stampato da queste 
istruzioni. 

Linea 500 

Viene introdotto sullo stack un valore qualsiasi per evitare 
che il sistema entri in errore e si ritorna al sistema in mo¬ 
do indiretto tramite STKBC. lu 
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Linea 510-640 

Questa subroutine in ordine 4 BIT alla volta da B a A 
usando le istruzioni di SHIFT (RLA e SLA). Dopodiché con¬ 
verte A nella rappresentazione ASCII. Così 0 diventa 48, 1 
si trasforma in 49 ecc. Se si ottiene un numero maggiore 
di 57 si aggiunge 7 per trasformare 10 in A (codice ASCII 
65), 11 in B e così via. 

Un piccolo avviso. La routine cosi scritta non è rilocabile, 
cioè non può essere trasportata in un’altra parte in memo¬ 
ria e pretendere che funzioni. Chi possiede comunque un 
buon ASSEMBLER può tranquillamente copiare il listato e 
cambiare la ORG alla linea 30. Noi abbiamo utilizzato l’ot¬ 
timo assemblatore della HISOFT, GENS2. È chiaro comu- 
que ci si può avvalere di un qualsiasi altro programma 
che sia in grado di compilare un file ASSEMBLER. Chi 
non disponesse di nessun tipo di compilatore può utilizza¬ 
re il programma in BASIC per la creazione di DEC-HEX 
CONVERTER badando al fatto che la routine ottenuta in 
questo modo non risulta rilocabile. 


60000 

30 


ORG 

60000 

5633 

40 

CHANOF' 

EQU 

5633 

7833 

50 

UNSTK 

EQU 

7833 

1 1563 

60 

STKBC 

EQU 

1 1563 

23653 

70 

STED 

EQU 

23653 

23651 

80 

STBT 

EQU 

23651 

8242 

90 

PRSTK 

EQU 

8242 

60000 

100 


LD 

HL,(STED) 

60003 

110 


LD 

DE,(STBT) 

60007 

120 


AND 

A 

60008 

130 


SBC 

HL, DE 

60010 

140 


LD 

A, L 

60011 

150 


CF' 

5 

60013 

160 


JR 

NC,CONT 

60015 

170 


RST 

8 

60016 

180 


DEFB 

25 

60017 

190 

CONT 

LD 

A,2 

60019 

200 


CALL 

CHANOF' 

60022 

210 


CALL 

UNSTK 

60025 

220 


F'USH 

BC 

60026 

230 


CALL 

STKBC 

60029 

240 


LD 

A, "H" 

60031 

250 


RST 

16 

60032 

260 


LD 

A, "E" 

60034 

270 


RST 

16 

60035 

280 


L.D 

A, "X" 

60037 

290 


RST 

16 

60038 

300 


LD 

A , " ( " 

60040 

310 


RST 

16 

60041 

320 


CALL 

PRSTK 

60044 

330 


LD 

A, "> " 

60046 

340 


RST 

16 

60047 

350 


LD 

A, " = " 

60049 

360 


RST 

16 

60050 

370 


POP 

BC 

60051 

380 


XOR 

A 

60052 

390 


CALL 

ROT 

60055 

400 


RST 

16 

60056 

410 


CALL 

ROT 


60059 

420 

RST 

16 

60060 

430 

L.D 

B,C 

60061 

440 

CALL 

ROT 

60064 

450 

RST 

16 

60065 

460 

CALL 

ROT 

60068 

470 

RST 

16 

60069 

480 

LD 

A, 13 

60071 

490 

RST 

16 

60072 

500 

JF' 

STKBC 

60075 

510 ROT 

XOR 

A 

60076 

520 

SLA 

B 

60078 

530 

RLA 


60079 

540 

SLA 

B 

60081 

550 

RLA 


60082 

560 

SL.A 

B 

60084 

570 

RLA 


60085 

580 

SLA 

B 

60087 

590 

RLA 


60088 

600 

ADD 

A, 48 

60090 

610 

CP 

58 

60092 

620 

RET 

C 

60093 

630 

ADD 

A, 7 

60095 

640 

RET 



1 REM * DEC-HEX CONVERTER * 


10 DATA 042,101,092,237,091,09 
9,092,167,237,082,125,254,005,04 
8,002,207,025,062,002,205,001,02 
2,205,153,030,197,205,043,045,06 
2,072,215,062,069,215,062,088,21 
5,062,040,215,205,050,032,062,04 
1,215,062,061,215,193,175,205, 17 
1,234,215,205,171,234,215,065,20 
5,171,234,08089 

20 DATA 215,205,171,234,215,06 
2,013,215,195,043,045,175,203,03 
2,023,203,032,023,203,032,023,20 
3,032,023,198,048,254,058,216,19 
8,007,201,000,000,000,000,000,00 
0 , 000 , 000 , 000 , 000 , 000 , 000 , 000,00 
0 , 000 , 000 , 000 , 000 , 000 , 000 , 000,00 
0 , 000 , 000 , 000 , 000 , 000 , 000 , 000,00 
0,000,000,04000 
30 DATA 20000 
70 RESTORE s LET tot=0 
80 INPUT "start:" 5 1oc 
90 READ a: IF a=20000 THEN ST 
OR 

100 LET tot=tot+a 
110 IF a>255 AND tot/2<>a THEN 
CLS : FRINT FLASH 1 ; AT 10,10;" 
DATA ERROR": STOP 
120 IF a>255 AND tot/2=a THEN 
LET tot=0; GO TO 90 
130 POKE 1 oc,a: PRINT 1 oc,a 
140 LET loc=loc+l 
150 GO TO 90 
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1984-1985 


LA VALIGETTA DI MODA 


Per richiederle usa il bollettino qui a fianco 
su cui è stampato l’importo da inviare. 


UNA VERA SOFTECA CON 364 PROGRAMMI 
PREZIOSE RUBRICHE DI CULTURA INFORMATICA 
E MOLTI CONSIGLI... OLTRE I MANUALI 


IN REGALO 
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INDISPENSABILE 
Al NEO-COMPUTERISTI 



FINALMENTE 
IL PRIMO LIBRO 
TUTTO 

ITALIANO SUL 

“LOGO” 

Il “Logo” è un linguaggio 
che si sta affermando, 
in Italia e all’estero, 
come il principale 
strumento per usare 
attivamente il computer 
nella scuola. 

Il “Logo” serve per imparare 
a programmare con, 
ma anche 
senza il computer. 

Per richiederlo usa il bollettino 



















IL COMPUTER e 
L’UGUAGLIANZA 


Il lettore si rassicuri, con questa nota 
non ci vogliamo occupare di problemi 
etico-giuridici o etico-politici sulla 
considerazione di «uguaglianza» dei 
membri di una collettività relativa¬ 
mente ad alcuni fatti o valori, né di 
una ipotetica «maggiore uguaglianza» 
dei computeristi, rispetto agli altri 
membri della società (insomma, chi 
sa usare un computer, non è, per que¬ 
sto «più uguale» degli altri), 
ci occupiamo di come il computer 
tratta l’uguaglianza, perché, come ve¬ 
dremo, ha un modo tutto suo di con¬ 
siderarla. 

1. Tutti sanno che l’uguaglianza gode 
(si fa per dire) della proprietà riflessi¬ 
va, simmetrica e transitiva. 

Per la proprietà riflessiva, ogni ogget¬ 
to A (matematico e non) è uguale a 
se stesso: A = A; 

per la proprietà simmetrica, se un og¬ 
getto A è uguale ad un oggetto B al¬ 
lora anche B è uguale ad A: 
se A = B allora B = A; 
per la proprietà transitiva, se A è 
uguale a B e B è uguale a C, allora A 
è uguale a C: 

se (A = B e B = C) allora A = C. 

Prescindiamo dalla prima proprietà, 
verso la quale il computer, come si 


dice, non fa una piega, e prendiamo 
in considerazione la seconda, la pro¬ 
prietà riflessiva. 

Scriviamo, dunque, i due seguenti 
programmi: 

10 LET A = 5 10 LET A = 5 

20 LET B = A 20 LET A = B 

30 PRINT B 30 PRINT B 

(in molti computer l’istruzione LET si 
può omettere). 

Sulla base della proprietà simmetrica, 
producendo A = B e B = A lo stesso 
effetto, i due programmi dovrebbero 
dare come risultato 5. 

Invece, provare per credere, il primo 
programma dà per risultato 5, come 
ci attendevamo, ed il secondo dà 0. 
Che cosa è successo? 
Semplicemente che il computer igno¬ 
ra la proprietà simmetrica e, mentre 
nel primo programma riceve l’ordine 
di dare a B lo stesso valore di A, che 
è 5, risponde correttamente; nel se¬ 
condo programma, invece, l’istruzione 
della linea 20 ordina al computer di 
dare ad A il valore di B. Ma non es¬ 
sendo stato assegnato a B alcun va¬ 
lore, per il computer B è uguale a 0 e 
pertanto stampa questo valore. 
Passiamo, adesso, alla proprietà tran¬ 
sitiva, e scriviamo il programma: 


10 LET A = 5 
20 LET A = B 
30 LET B = C 
30 PRINT C 

Se lo facciamo «girare» otteniamo per 
C il valore 0. 

Però, ormai sappiamo che la linea 20 
e 30 sono errate perché assegnano 
ad A e a B valori non ancora specifi¬ 
cati. Correggiamo, dunque, in: 

10 LET A = 5 
20 LET B = A 
30 LET C = B 
40 PRINT C 

Questa volta otteniamo per C il valo¬ 
re 5 cioè il valore di A. 

La proprietà transitiva è dunque vali¬ 
da. Però, non essendo valida la pro¬ 
prietà simmetrica, deve essere riscrit¬ 
ta così: 

se (B = A e C = B) allora C = A. 

2. A tutti sarà capitato di rimanere 
perplessi nel leggere, la prima volta 
che in informatica si sono imbattuti 
in «uguaglianze» numeriche come 
N = N + 1, oppure, trattandosi di strin¬ 
ghe, come A$ = A$ + B$, perché sono 
evidentemente uguaglianze errate. Il 
fatto è che queste non sono ugua¬ 
glianze ma... istruzioni, che si danno 
al computer per sostituire il valore N 
con il valore N + 1, oppure la stringa 
A$ con la stringa A$ seguita dalla 
stringa B$. Se, ad esempio: 

A$ = “Ciao” e B$=”a tutti”, 
A$ = A$ + B$ significa sostituire 
"Ciao” con "Ciao a tutti”. 

GIEFFE 
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Per tutti 
i COMPUTER 


■Mi™ 

NUMERI PRIMI 


Tutti sanno che i numeri naturali so¬ 
no divisibili per se stessi e per l’uni¬ 
tà: 

3 è divisibile per 3 e per 1, 

36 è divisibile per 36 e per 1, ... 

Vi sono, però, alcuni numeri, come 2, 
3, 5, 7, ... che sono divisibili soltanto 
per se stessi e per l’unità e che sono 
detti "numeri primi”. I numeri non pri¬ 
mi si chiamano "numeri composti”. 
Ad esempio , 4 è un numero compo¬ 
sto perché, oltre ad essere divisibile 
per 4 e per 1 è divisibile anche per 2. 
La successione dei numeri primi ha 
questo inizio: 

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, ... 

come si comprende, 2 è l’unico nume¬ 
ro primo pari, perché qualunque altro 
numero pari è divisibile, oltre che per 
se stesso e per l’unità, certamente 
anche per 2 . 

I numeri primi hanno suscitato note¬ 
vole interesse fin dai tempi più anti¬ 
chi: la successione è limitata o illimi¬ 
tata? di coppie di numeri come 5 e 7, 

II e 13, 17 e 19 (i cosiddetti numeri 
primi gemelli) ce ne sono in numero 
finito o infinito? è possibile trovare 
una formula che dia tutti (e soli) i nu¬ 
meri primi o i numeri gemelli?, ... 

La risposta alla prima domanda fu 
data da Euclide, verso l’anno 300 
a.C., nei suoi «Elementi» (libro IX, pro¬ 
posizione 20 ), con una dimostrazione 
elementare, rimasta un modello di ra¬ 
gionamento matematico. ' 
Euclide ragionò così: supponiamo 
che ad un certo punto la successione 
dei numeri primi abbia termine e sia 
Pn l’ultimo numero primo, 
sia P il numero ottenuto moltiplican¬ 
do tutti i numeri primi, da Pi a Pn, ed 
aumentando questo prodotto di 1 : 

P = PI *P2*P3*...*Pn + 1 
Questo numero P o è primo o non lo 
è. Se fosse primo, allora c’è almeno 
un altro numero primo oltre quelli am¬ 
messi, il che è contrario all’ipotesi 
che i numeri P1,P2,...Pn, siano TUTTI i 
numeri primi. 

Se non è primo, allora è composto e 
perciò dovrebbe essere divisibile al¬ 
meno per uno dei numeri primi da PI 
a Pn. Ma P, diviso per PI, per P2,..., 
per Pn, dà sempre resto 1, e, dunque, 
non è divisibile. E allora ci deve esse¬ 
re un altro numero primo, diverso dai 
dati P1,P2,...Pn, che è divisore di P, il 
che è sempre contrario all’ipotesi am¬ 
messa. 

Sulla domanda sui numeri primi ge¬ 


melli non c’è risposta, sulla terza, c’è 
stata una risposta negativa. 
Ovviamente, per la successione dei 
numeri primi si possono inventare 
delle formule che danno alcuni nume¬ 
ri primi, come ad esempio Sn 1, per 
n = 1,2,3,..., che fornisce i numeri: 5, 7, 
11, 13, 17, 19, 23, 25, 29, 31, 35, 37, ..., 
però, come si vede, assieme ad alcu¬ 
ni numeri primi, ci sono anche 25 e 
35 che non lo sono. 

Altre formule note sono: 
n2 + n + 41 e l’analoga n2—n + 41, 
che forniscono i numeri primi 
41, 43, 47, 53,... 

ma che cadono in difetto per n = 41, 
avendosi: 

n2 +n + 41 =412 + 41 +41 = 

= 41(41+2) = 41*43 
e 

n2—n—41 =412—41 +41 =412 
Quasi tutti i ragazzi che sono venuti a 
conoscenza dei problemi lasciati 
aperti dai numeri primi, si sono ci¬ 
mentati, ma inutilmente, per trovare, 
magari durante l’intervallo per la me¬ 
renda, una formula che, se non tutti i 
numeri primi, ne desse almeno un bel 
po’. 

Come è noto, per scrivere tutti i num- 
ri primi, sino ad un certo numero, si 
può usare un metodo empirico il “cri¬ 
vello di Eratostene”, e cioè: 

a) si scrive il 2 seguito da tutti i nu¬ 
meri dispari; 

b) lasciato il 3, si cancellano tutti i 
suoi multipli 6, 9, 12,...; 

c) si continua così cancellando i mul¬ 
tipli di 5 (10,15,20,...), i multipli di 7 
(14,21,28,...) ecc. 

Ma noi, ovviamente, per la ricerca dei 
numeri primi, ci serviremo del compu¬ 
ter. Battiamo, dunque, il programma 
riportato nella pagina che segue (vali¬ 
do per qualsiasi computer), che, a 
parte il 2 e il 3, ricerca i numeri primi 
tra tutti i numeri dispari che non so¬ 
no divisibili per nessun numero (oltre, 
ovviamente, se stessi e l’unità). 
Vogliamo vedere quanto tempo impie¬ 
ga per scrivere i numeri primi minori 
di 100? 

Inseriamo l’orologio nel programma 
al momento dell’inizio della ricerca, e 
cioè prima della linea 50: (solo per 
Commodore 64, per gli altri computer, 
consultare il manuale). 

45 Tl$ = “000000” 

e ne facciamo stampare il valore non 
appena è finita la ricerca, cioè alla li¬ 
nea 160. Modifichiamo, perciò, il pro¬ 


gramma da questa linea, per inserire 
la stampa dell’orologio: 

160 PRINT:PRINT:PRINT:“RICERCA 
EFFETTUATA IN:” 

170 PRINT LEFT$(TIS,2) “ORE 
“MID$(TI$,3,2) ” MIN ”Rlght$ (TIS.2)” 
SEC” 

Dato il RUN, possiamo constatare 
che la ricerca avviene in 38 secondi. 
Possiamo, però, migliorare il pro¬ 
gramma, rendendolo più veloce, os¬ 
servando che non è necessario ese¬ 
guire le divisioni fino ad N-1, perché 
basta arrestarsi alla radice quadrata 
di N. 

Se, infatti, consideriamo un numero 
qualsiasi, ad esempio 36, vediamo 
che le coppie dei numeri che, molti¬ 
plicati, danno 36, ad un certo punto 
si ripetono, in ordine inverso: 

1*36, 2*18, 3*12, 4*8, 6*6, 8*4, 12*3, 
18*2, 36*1 

Modifichiamo, dunque, la linea 130, 
sostituendo a N-1 la radice quadrata 
di N. Anzi, poiché non è detto che la 
radice quadrata di N sia un numero 
naturale, considereremo solo la parte 
intera di tale radice quadrata: 

130 IF D > INT(SQR(N)) THEN 
PRINTN”,”;GOTO30 
Vediamo, adesso, che il tempo di ri¬ 
cerca si è ridotto a soli 14 secondi. 
Se dovessimo compilare la tavola dei 
numeri primi, mettiamo, fino a 10 . 000 , 
il programma ci sembrerà molto len¬ 
to, perché via via che avanza nella ri¬ 
cerca, il numero delle divisioni da 
provare, aumenta sempre più. 
Possiamo cercare di guadagnare an¬ 
cora qualche cosa “compattando” il 
programma, cioè togliendo le REM, 
scrivendo in ciascuna linea tutte le 
istruzioni possibili, e rinumerando il 
programma a partire da 1 con passo 
1 , così: 

1 PRINT:PRINT:“SUCCESSIONE DEI 
NUMERI PRIMI MINORI DI 100”: 
tl$ = “000000” 

2 PRINT“2, 3, ”:N = 3 

3 N = N + 2:IFN > 99THEN9 

4 D = 2 

5 D = D +1 

6 IFN/D = INT(N/D)THEN3 

7 IFD> INT(SQR(N))THENPRINTN” 
GOT03 

8 GOT05 

9 PRINT:PRINT:PRINT:“RICERCA 
EFFETTUATA IN:” 

10 PRINTLEFT$(TI$,2)” ORE 
“MID$(TI$,3,2) ” MIN “RIGHTS 
(Tl$,2) ” SEC.” 
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Possiamo osservare che, adesso, la 
ricerca si è ridotta ancora di 2 secon¬ 
di. 

Se, però misuriamo il tempo via via 
che operiamo le riduzioni del listato, 
vediamo che la riduzione a 12 secon¬ 
di si ottiene appena togliamo le REM. 
Togliendo gli spazi e rinumerando il 
listato, non si ottiene nessun’altra ri¬ 
duzione. 

Proviamo, allora a scrivere i numeri 
primi minori di 1000, moficando op¬ 
portunamente la linea 90. 
il programma completo li calcola in 6 
min e 31 sec, quello senza le REM in 
5 min e 46 sec, il programma compat¬ 
tato in 5 min e 41 sec, quello rinume¬ 
rato in 5 min e 40 sec. 

Come si vede il risparmio maggiore di 
tempo si ha sopprimendo le REM. La 
compattazione e la rinumerazione 
producono poco effetto perché il pro¬ 
gramma è breve. Per i programmi lun¬ 
ghi si otiene un effetto migliore, ma 
sempre relativo. Se il vostro computer 
non rinumera automaticamente le li¬ 


nee o se non avete un programma 
manuale, risparmiatevi pure la fatica: 
ciò che si guadagna in memoria e in 
velocità non vale il lavoro fatto per la 
rinumerazione. 

Per rendere notevolmente più veloce 
un programma occorre scriverlo in 
linguaggio macchina o, almeno, 
“compilarlo”. 


Ci sono, infatti, in commercio dei 
“compilatori”, come l’Austro Speed 
per il C64, che traducono automatica- 
mente il programma in un linguaggio 
molto vicino a quello macchina. 
L’ultimo programma, quello compat¬ 
tato e rinumerato, se è anche compi¬ 
lato, calcola i numeri primi fino a 
1000 in 4 min e 14 sec. □ 


10 REM 

20 REM * SUCCESSIONE DEI NUMERI PRIMI 

30 REM * LIST-SCUOLA & COMPUTER 

40 REM *****.********** . 

50 PRINT:PRINT“SUCCESSIONE DEI NUMERI PRIMI MINORI DI 100” 

60 PRINT “2, 3,”; 

70 N = 3: REM PRIMO NUMERO DISPARI CONSIDERATO 

80 N = N + 2: REM SUCCESSIVI NUMERI DISPARI 

90 IF N>99 THEN 160: REM SE IL NUMERO SUPERA 99 LA RICERCA 
HA FINE 

100 D = 2: REM PRIMO DIVISORE 

110 D = D + 1: REM DIVISORI SUCCESSIVI 

120 IF N/D = INT(N/D) THEN 80: REM TROVATO UN DIVISORE PASSA AL 
NUMERO SUCCESSIVO 

140 REM ARRIVATO ALL’ULTIMA PROVA STAMPA N, CHE È PRIMO 
150 GOTO 110: REM PASSA AL DIVISORE SUCCESSIVO 

160 END 


INFORMATICA E DIDATTICA 


Due aspetti fondamentali 

Se osserviamo attentamente possiamo notare la graduale creazio¬ 
ne di due aspetti all’interno del rapporto fra informatica e didat¬ 
tica: da una parte le applicazioni del computer come strumento 
didattico, quelle applicazioni, cioè, in cui il computer viene pro¬ 
grammato per interagire con l’allievo ed essere, a seconda dei ca¬ 
si, docente, esaminatore, aiutante o patner di scoperta e di gio¬ 
co; dall’altra il computer, e più in generale, l’informatica come 
oggetto d’insegnamento nella formazione scolastica non speciali¬ 
stica. 

Gradualmente ci si è resi conto che si tratta di due aspetti certa¬ 
mente distinti, ma di fatto non separabili, almeno per quanto ri¬ 
guarda la scuola. Infatti, quando il computer entra nelle classi, 
insegnanti e studenti, approfondendo la loro conoscenza dell’in¬ 
formatica, sono portati, in modo naturale, ad applicarla al loro 
specifico campo d’attività, l’insegnamento-apprendimento: avvie¬ 
ne, cioè, anche nella didattica, quello che sta avvenendo in sva¬ 
riati altri settori: il non specialista, accostandosi all’informatica, 
ne scopre le potenzialità in relazione alla propria professione e, 
gradualmente, diventa attore di un processo di rinnovamento 
metodologico. 

Altrettanto improponibile sarebbe utilizzare nelle scuole il com¬ 
puter come mezzo didattico mantenendo un velo di mistero sulle 
nozioni fondamentali dell’informatica, le modalità di funziona¬ 
mento del computer, le sue potenzialità, in una parola senza ri¬ 
dimensionare il computer da «cervello elettronico» a strumento 
di lavoro comprensibile, prevedibile e manipolabile da tutti. Non 
sarebbe educativo, né culturalmente corretto e, probabilmente, 
non sarebbe accettato. 

Esiste poi una terza considerazione, di natura più profonda, che 


di Elisabetta Portacci 


mette in luce una vera e propria continuità concettuale tra questi 
due aspetti: in entrambi l’interazione con il computer richiede 
che l’allievo in qualche modo programmi. Programmare non è 
soltanto utilizzare il Basic, il Logo o il Pascal o un qualunque al¬ 
tro linguaggio di programmazione per risolvere uno specifico 
problema. Quasi tutto il miglior software didattico richiede in 
qualche modo agli allievi di predisporre una serie di operazioni 
per ottenere un particolare risultato, cioè di programmare. Nel 
caso di un linguaggio di programmazione, l’allievo deve costruire 
una sequenza di istruzioni scelte fra quelle appartenenti al lin¬ 
guaggio che sta utilizzando; nel caso del software didattico, deve 
scegliere fra le operazioni permesse nell’ambiente didattico che il 
software mette a disposizione. La differenza è solo nel livello 
delle operazioni, di solito più elementari e meno specifiche nel 
caso del linguaggio di programmazione, più complesse ed orien¬ 
tate ad un particolare contesto nel caso del software didattico. 
Fanno eccezione soltanto i programmi didattici più direttivi, che 
utilizzano strategie analoghe all’istruzione programmata e che 
non lasciano all’allievo altra possibilità che seguire un percorso 
predefinito. 

Possiamo, quindi, concludere affermando che, molti insuccessi 
didattici del passato, in alcuni casi un passato non lontano, han¬ 
no messo chiaramente in evidenza che la tecnologia è vantaggio¬ 
sa solo quando fa da supporto a scelte pedagogiche corrette, ad 
una rigorosa progettazione didattica e ad una buona dose di fan¬ 
tasia e creatività. 


Nota: Consultazione di studi e ricerche condotte dall’Isti¬ 
tuto di Tecnologie didattiche del C.N.R. di Genova. 
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UN TAXI PER PASCAL 

di Fabio Russo 

Ecco un possibile itinerario didattico attraverso il quale gli alunni possono familiarizzare 
con concetti informatici relativi a situazioni di gioco e di vita di tutti i giorni 


Cito alcuni obiettivi raggiungibili attraverso questo lavoro 
in ambito cognitivo e affettivo: 

— orientarsi nel piano grafico; 

— eseguire ordinatamente in senso logico una serie di 
operazioni; 

— esercitare l’analisi nel processo di suddivisione dei 
Problemi in singole parti; 

— sviluppare e prfezionare la capacità di risoluzione dei 
Problemi; 

— incrementare la comunicazione e compartecipazione 
di idee tra gli alunni. 

Questo tipo di lavoro si potrebbe proporre ai ragazzi degli 
ultimi due anni della scuola elementare o di prima media. 

I contenuti informatici sono: 

— concetto di sequenza logica; 

— codici di informazione; 

— concetto di stato; 

— esecuzione condizionata di operazioni; 

— memorizzazione sotto un nome di una serie di opera¬ 
zioni da compiere; 

— concetto di automa. 

I contenuti matematici sono: 

— corrispondenza tra simbolo e oggetto; 

— direzione, verso, rotazione; 

— individuazione di coordinate rispetto gli assi cartesia¬ 
ni. 

II metodo che si utilizza parte da situazioni di gioco con 
realizzazioni grafiche di percorsi da compiere, l’uso dei 
simboli per rappresentare oggetti e uso di procedure. 

I mezzi da utilizzare sono dei fogli di carta da lucido (tra¬ 
sparente), lo stradario “TUTTO CITTÀ” della SEAT, alcuni 
trasferibili per disegno. 

All’inizio ogni alunno deve realizzare una griglia su carta 
da lucido, ricalcandola semplicemente dallo stradario 
SEAT, e deve imparare a ricercare una via richiesta 
dall’insegnante, tramite le coordinate (fig. 1 ). 
L’insegnante, una volta assicuratosi che tutti sono in gra¬ 
do di eseguire la ricerca, fa suddividere ulteriormente in 
spazi più piccoli la griglia (fig. 2 ). 

Le linee verticali della griglia rappresentano le varie vie 
(colonne), mentre quelle orizzontali indicano i corsi (righe). 
Ogni alunno diventa un provetto conduttore di taxi che de¬ 
ve svolgere il proprio lavoro nella città e deve rispettare 
alcune precise regole. 

Inoltre deve sapere comunicare con il suo mezzo sola¬ 
mente con alcune parole che conosce e che sa trasforma¬ 
re in azioni. 

Due concetti legati alla robotica cominciano a venir fuori, 
il primo è quello del RISOLUTORE di problemi, nel nostro 
caso il conduttore; il secondo è quello di ESECUTORE di 
comandi cioè di taxi. 

La griglia è composta da righe e colonne, esse per noi 


rappresentano le strade, quindi, vi sono tantissimi pericoli 
come alcuni incroci semaforizzati, mentre in altri potrebbe 
casualmente presentarsi un ostacolo. 

Vediamo per ora le prime istruzioni che il mezzo è in gra¬ 
do di eseguire, in un secondo tempo ne saranno introdot¬ 
te altre: 

AVANTI: il mezzo avanza di un solo piccolo elemento del¬ 
la griglia. Se incontra un ostacolo non previsto, il motore 
si spegne; 

DESTRA: il mezzo ruota a destra di 90° gradi; 

SINISTRA: il mezzo ruota a sinistra di 90° gradi; 

INIZIO: il mezzo deve accendere il motore per partire; 
FINE: il mezzo non è più in grado di muoversi; 

PRENDI: accoglie un passeggero nel taxi; 

LASCIA: lo lascia all’incrocio richiesto; 

POSTAZIONE: inizialmente il taxi parte sempre dalle coor¬ 
dinate di colonna 1 e riga 1. 

Ora si simula la chiamata al radiotelefono del primo taxi 
che per esempio deve andare a prendere un passeggero 
nel traffico caotico di Roma, in Piazza A. Capponi e por¬ 
tarlo in Piazza Cavour. 

La prima operazione che l’alunno deve compiere è la ricer¬ 
ca della pagina e delle coordinate sullo stradario. 

A pagina 21 le coordinate della prima Piazza sono A-5 
quelle della seconda C-5. 

Si sovrappone alla piantina il lucido con la griglia e si ini¬ 
zia a collocare il simbolo del taxi nella POSTAZIONE di 
coordinate 1,1 e quello del passeggero in Piazza A. Cap¬ 
poni. 

I simboli utilizzati sono rappresentati nella figura 3. 

Si studia a questo punto il percorso più agevole (fig. 4). 
Una volta individuato, si iniziano a dare i comandi che il 
mezzo conosce, come segue: 

Piazza Cavour 

INIZIO 
DESTRA 
AVANTI 
AVANTI 
AVANTI 
SINISTRA 
AVANTI 
PRENDI 
AVANTI 
DESTRA 

AVANTI *_ 

AVANTI POSTAZIONE 

AVANTI 
AVANTI 
AVANTI 
AVANTI 
AVANTI 
LASCIA 
FINE 


[ P ZA 
-3» CAPPONI 

J 


RZA 

.CAVOUR 


Fig. 4 
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Se si è dato un comando errato i compagni che seguono 
le operazioni con la loro griglia, riferiscono subito di uno 
spegnimento della macchina e immediatamente si passa 
alla correzione dell’errore. 

Il taxi può spegnersi se per esempio vogliamo prendere a 
bordo un passeggero che non è all’incrocio previsto, op¬ 
pure lasciarlo quando non è ancora salito sulla macchina. 

Fig. 1 



553. f»** 


'•«uoUJi 


GIUSTI 


«AZZA 


Fig. 2 



L’automobile può al massimo contenere contemporanea¬ 
mente quattro passeggeri. 

Altro spegnimento avviene se si comunica con parole che 
la macchina non sa tradurre in azioni. 

Con il prossimo numero di LIST si inseriranno degli osta¬ 
coli e si introdurranno altre parole che il tassista potrà 
usare. 

Con questo lavoro iniziale, molto vicino a quello di «KA- 
REL IL ROBOT» si cerca di poter portare l’alunno ad inter¬ 
venire con un pensiero algoritmo strutturato per risolvere 
problemi semplici e complessi e nello stesso tempo avvi¬ 
cinarlo concettualmente a linguaggi informatici. 


Fig. 3 



Abbonamento 

“SPECIALE SCUOLA” 

Prezzo particolare 

per Presidi, Direttori, Insegnanti, Studenti 

L. 38.500 (anziché 55 . 000 ) 

Il versamento va effettuato sul 
eie post. N. 72609001 indirizzato a 
LIST programmi per il tuo Home 
Computer - Via F. Stilicone, 111 - 00175 
Roma-apponendo nello spazio 
per la causale il timbro 
della Scuola di appartenenza. 
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INTELLIGENZA ARTIFICIALE 
” UN SISTEMA ESPERTO ” 


A I TRIANGOLI 

d i Giuseppe Festa 
per Commodore C64 



O n attesa che i giapponesi mettano a punto i com¬ 
puter della quinta generazione, dell’Intelligenza 
Artificiale, cioè quei computer che possono collo¬ 
quiare con l’uomo tramite la voce, che sono in grado di 
prendere decisioni, di imparare..., accontentiamoci del pri¬ 
mo livello di Intelligenza Artificiale, che possiamo pro¬ 
grammare anche per i piccoli calcolatori, i cosiddetti si¬ 
stemi esperti. 

Come è noto, con «sistema esperto» si intende un pro¬ 
gramma in grado di simulare un colloquio dell’utente con 
una persona competente. 

Nel programma che segue presentiamo un «sistema 
esperto» sui triangoli, che è in grado di riconoscere la 
specie di un triangolo, sulla base delle risposte che 
l’utente dà alle domande del calcolatore. 

È un breve programma che si può digitare senza eccessi¬ 
va fatica, la cui parte « intelligente » è costituita dalle linee 
230-370, facilmente comprensibile in prima lettura. 


I 0 R EI i 444 -4 4 4 '4 •* 4 4 4 4 4 4 4; .4 *.4 4.4 4: * 4 4 .«*• 4 4. 4 4 4 

20 REM 4 SIS l'EMfì ESI * 

30 REM * I IRI FÌNGOLI 4 

40 REM #444 *.4* * 4 * 4 * a . .|i 44:.44 :4 - * .4 4.4 * 4 4 4.4 .;*-4 
50 REM •+ BI GIUSEPPE FESTfì ROMA 
60 REM 4 4 4 4 * 44 4 4 4. * 4 * .4 * 4 4 4 •» 4 * 4 4 4.44 4 è ♦: 

70 P0KE53288, 12 P0FE53281 1 .1 • PP ì NI r Hp t- •. 1 
42,' 

80 PRI NT ' ' ■ JF MH 

ESPERTO" 

90 PRINT * "m TF ' IANO GLI * ' 

100 GOSUB20 'O 

110 PRINT’SE MI COMUNICHI 
LE CARATTERISTICHE" 

120 PRIMI "Pi DEL TRIANGOLO, Il DIRO' DI 
CHE COSA" 

130 FRI NT "41 SI TRATTA." 

140 GOSUB20 '0 

200 REM 44444444444444* 44444444 * 44444*4 
210 REM 4 TRIANGOLI 4 

220 REM 4444444*44444444 * 4444444444* 444 

236 INPUT TU PUR TUTTI LATI UGUALI";Cf 
240 IFCi ’ *S I ’ THENPRINT * ‘lEE ' UN TRIANGOLO 
EQUILATERO ED EQUIANGOLO" 6OSUB9Q0 GOTO 
200 


2S0 INPUT"«HA DUE LATI UGUALI" ; D* 

260 1 FDi =5 * *S I ' ' HENPR 1 i T ‘ :«CTE UN IRI ANGOLO 
ISOSCELE. " GOT0-330 

270 PRINT"MiÉ UN TRIANGOLO SCALENO" 

280 INPUT’’PìkJHfì UN ANGOLO RETTO"JET 
290 IFE $■ = ' ’S 1 1 THENPR I NT * !«TE UN TRI ANGOLO 
RETTANGOLO SCALENO." GOSUE900 : GOTO200 
300 INPUT ’*MkJ4A UN ANGOLO OTTUSO ' ' ; UT 
310 IFOT-"SI "THENPRI NTUN TRIANGOLO 
SCALENO OTTUSANGOLO." GOSUB90O 'GOTO2U0 
320 IFOT : = ''NO‘THENPRINT"*I73E " UN TRIANGOLO 
SCALENO ACUTANGOLO. " GOSUB900 •' GOTO200 
330 INPUT’W1A UN ANGOLO RETTO".; FT 
340 I FFT= ' ’S I ’ 'THE* ! PR I NT ’ 'flTHE UN TR I ANGOLO 
RETTANGOLO 1SOSCELE." ; GOSUB900 ; GOT0200 

350 INPUT’’tlkHA UN ANGOLO OTTUSO", GT 
368 IFGT= *’SI ’THENPRINT''SETEUN TRIANGOLO 
IS0SCE LE 0T T USHNG0LO." ; G 0SUB 9 AO : G0T020U 

370 F’RINT"P-iTF. UN TRIANGOLO ISOSCELE ACU 
TANGOLO. " GOSUB9O0 GOTO2O0 

9 00 REM 444444:44:444444444*4444444444444 
910 REM 4 SUBROUTINES 4 

920 REM 4444444444444444444444444444444 
1000 REM 4444444444444444444444444444444 

1010 REM 4 CONTINUI? 4 

1020 REM 4444444444444444444444444444444 

1030 FRINT"4M CONTINUI? OTTO 
10*40 GETNT IFN$=""THEN1040 
105O I FN$= ' ’S ‘ THENRETURN 
1060 END 

2000 REM 4444444444444444444444444444444 

2010 REM 4 PREMI UN TASTO 4 

2020 REM 444444444444444444444*444444444 

2030 PRINTTAB(25> *:pMpM«pFREMI UN TASTO’' 

2040 GETAT•IFAT=""THEN2040 
2050 RETURN 
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I PROGRAMMI DI LIST 


COMMODORE 128 LIST N 


BUSINESS GRAPHICS 

11/1986 

TUNDER BALL 

11/1986 

AR.CON 

12/1986 

TOP-GUN 

1/1987 

Progressioni ARITMETICHE 

2/1987 

ROMPICAPO (puzzle) 

2/1987 

TECNO 

3/1987 

RAINBOW 

5/1987 

EASY DATA 

5/1987 

COMMODORE 64/128 

LIST N 

DESIGN LAB 

10-11/1985 

TUTTO IL CALCIO 

12/1985 

RUBRICA TEL 

1-2/1986 

VIDEOSINT 

1-2/1986 

RADICE QUADRATA 

3/1986 

ASTON 64 TITOLATRICE 

3/1986 

CATALOGO PROGRAMMI 

4/1986 

AFFINITÀ DI COPPIA 

4/1986 

TEST DI GEOMETRIA 

5-6/1986 

SUPER UTILITY 

5-6/1986 

ISTOGRAMMI 3-D 

5-6/1986 

NOTE DIRECTORY 

9/1986 

WINDOW 64 

10/1986 

SPRITE BUSTER 

11/1986 

CLASSIFICA CAMP. A-B 

11/1986 

DISEGNO E STAMPA 

12/1986 

CONVERSIONE NUMERI 

12/1986 

SOGLIANDO IL DIZIONARIO 

1/1987 

FORMULA 3000 

1/1987 

EQUIVALENZE 

1/1987 

LE TABELLINE 

2/1987 

CALCOLATRICE SCIENTIFICA 

2/1987 

DISCUSSIONE DI FUNZIONE 

2/1987 

IN GIRO PER L'EUROPA 

3/1987 

AMMORTAMENTO INTERESSI 

3/1987 

COPERTINA PER CASSETTE 

5/1987 

COMMODORE 16/PLUS 4 

LIST N 

CHIMICA 

10-11/1985 

ASTON 16 

12/1985 

CHAR 16GEN. CARAT 

3/1986 

CAMPIONATO DI CALCIO 

4/1986 

BIORITMI 

7-8/1986 

SEGA SC 300 

LIST N 

MATH SOFTWARE 

8-9/1985 

GEOMETRIA 1 

10-11/1985 

GRAPH 3000 

1-2/1986 

TOPOGRAPH 3000 

3/1986 

DRAWER 

4/1986 

BAKER 

5-6/1986 

HANOI 

7-8/1986 

GFORZA4 

11/1986 

OBLIN 

9/1986 

DERBY 

10/1986 

R A F. 

10/1986 

TOP-SECRET 

12/1986 

POKER 

12/1986 


SHARP MZ 700 LIST N 


ELENCO FORNITORI 

10-11/1985 

SETTE E MEZZO 

10-11/1985 

LO STRISCIONE 

12/1985 

ELENCO CLIENTI 

1-2/1986 

IL MURO 

1-2/1986 

SHARPORGANO 

1-2/1986 

THESTING 

3/1986 

CACCIA ALLE LETTERE 

1-2/1986 

GESTIONE MAGAZZINO 

4/1986 

FILETTO 

5-6/1986 

BUSINESS MANN 

5-6/1986 

CONTABILITÀ DOMESTICA 

7-7/1986 

GRAFICI AZIENDALI 

9/1986 

TOTOCALCIO 

10/1986 

SCOPRI LA CARTA 

10/1986 

BATTAGLIA NAVALE 

11/1986 

CONOSCERE L'ANATOMIA 

12/1986 

ESAME DI GEOMETRIA 

12/1986 

ENALOTTO 

1/1987 

CONOSCERE L'ANATOMIA 

1/1987 

FUNZIONI 3D 

2/1987 

COPERTINE PER CAS 

2/1987 

CODICE COLORE RESISTENZE 

2/1987 

WORD PROCESSOR 

3/1987 

CODICE FISCALE 

5/1987 

COORDINATE CARTESIANE 

5/1987 

TEXAS TI 99/4A 

LIST N 

SCHEDA P MONDRIAN 

8-9/1985 

LA COMETA DI HALLEY 

10-11/1985 

LEONARDO 

12/1985 

THE LORD OF SPIDERS 

12/1985 

MAYA 

1-2/1986 

DECODIFICATORE 

1-2/1986 

CONV ESADEC -DEC 

3/1986 

BOWLING 

3/1986 

PROGETTO DACIA 

4/1986 

GALAXI ADVENTURE 

4/1986 

SIMON TEXAS 

5-6/1986 

SKIING IN THE NIGHT 

5-6/1986 

DISEGNO IN HI-RES 

7-8/1986 

VIDEO PRINT 

11/1986 

MERRYGO ROUND 

11/1986 

CHERNOBYL 

9/1986 

PASSAGGIO SU GIZA 

9/1986 

MARSWARS 

10/1986 

VIDEOCONCERTO 

12/1986 

INTERCEPTOR 

12/1986 

CALENDARIO PERPETUO 

1/1987 

GRAZYBALL 

2/1987 

GOLF 

3/1987 

SISTEMI MSX 

LIST N 

POKER 

8-9/1985 

GALACTICA 

10-11/1985 

PAINT WITH DRAW 

12/1985 

NUDO ARTISTICO 

5/1987 

EDIT SPRITE 

5/1987 

GRAFICA MATEMATICA 

5/1987 


PER RICHIESTE VEDI 
“SERVIZIO PROGRAMMI” 


DATA WRITER 

1-2/1986 

ROAD RACE 

1-2/1986 

GHOST-MAZE 

3/1986 

ROMPICAPO 

1-2/1986 

WIMBLEDON 

4/1986 

SUPER SORT 

5-6/1986 

THE DIES 

7-8/1986 

MASTERMIND MSX 

9/1986 

ORD ALFABETICO 

10/1986 

C/C BANCARIO 

10/1986 

BONUS MALUS 

11/1986 

TORNIO ELETTRONICO 

11/1986 

CHE GIORNO ERA 

12/1986 

CORSO DI INGLESE 

12/1986 

IL TECNIGRAFO 

1/1987 

CARATTERI SPECIALI 

1/1987 

CORSO D'INGLESE 2a CAS 

1/1987 

CORSO D'INGLESE 3a CAS 

2/1987 

SCARABEUS 

2/1987 

TITOLATRICE A 20 INGRAND 

3/1987 

L'INVENTA SPRITE 

3/1987 

CHI È 

3/1987 

CORSO INGLESE 4‘ CASSETTA 

3/1987 

ZX SPECTRUM 

LIST N 

FUSO ORARIO 

1-2/1986 

CAMP 1 

1-2/1986 

SLALOM 

3/1986 

TOT 13 

3/1986 

DATA BASE 

4/1986 

RENUMBER 

4/1986 

ROTOR 

5-6/1986 

PAINT 

5-6/1986 

TIC-TAC-TOE 3D 

7-8/1986 

Q.l 

9/1986 

IL TEST DELL AMORE 

10/1986 

GEOMETRIA PIANA 

10/1986 

Y 30 

11/1986 

PIANO BAR 

11/1986 

ROULETTE 

12/1986 

DOUBLÉ 

12/1986 

AIRAM 

1/1987 

TESEO 

1/1987 

DAMA 

2/1987 

MERIDIANA 

5/1987 

STARLITH 

5/1987 

ECLISSLUNA 

3/1987 

OLIVETTI PRODEST PCI 28 

LIST N 

QUARKSTYLE 

1/1987 

MASTERMIND 

1/1987 

ALFABETO PAZZO 

2/1987 

SEMPLIFICAZIONE DI FRAZIONI 

3/1987 

OTHELLO 

4/1987 

MEMORY 

4/1987 

IL VIAGGIOSCOPIO 

5/1987 

OLIVETTI PRODEST PC128S 

LIST N 

WINDOW EDITOR 

2/1987 

SPHEROGRAPH 

3/1987 

OLICALC 

4/1987 

CONTABILITÀ DOMESTICA 

5/1987 



SERVIZIO PROGRAMMI 

I programmi, pubblicati in questo e nei precedenti numeri di LIST, 
sono disponibili in cassetta o (floppy disk solo per Commodore) 

I lettori possono richiedere uno o più programmi, specificandone 
i titoli, e inviando, quale contributo spese, per ogni programma: 

Lire 10.000 per la cassetta, Lire 12.000 per il floppy disk 
(Commodore) e L. 15.000 per Olivetti PC 128S 
Tale contributo è comprensivo delle spese di imballo e 
spedizione a domicilio. 

La richiesta deve essere fatta a mezzo vaglia postale; 
indirizzato a EDICOMP s.r.l. Via F. Stilicone, 111 - 00175 Roma 
oppure con assegno bancario N.T. in busta chiusa. 





















Robot 5 assi azionato da Biometal. 

DH101 non usa pistoni o motori: Biometal è una speciale lega capace di modificare la propria forma se percorsa 
da corrente. 

Biometal in forma di filo (0.15 mm) aziona DH101 Robot come un muscolo umano. 

Caratteristiche: — 5 assi open loop. 

— modi di controllo: manuale, trace, E-Z link (seriale), parallelo Centronics, demol, demo2. 

— Voi stessi potete registrarlo nei movimenti. 

Esperienze con Biometal: — DH620 starting kit. 

— Biometal guide book. 

Biometal è un marchio registrato della TOKI Corporation. DH101 Robot è coperto da brevetto. 



RAVASI ROBOTICS 

RAVASl ROBOTICS é una divisione della RAVASI IMS 

s.n.c. di Ravasi Felice e Fabrizio & C. 

Via Cartiera. 1 - 22050 Brivio (Co) Italia 
Telefono 039/53.21.433 
Telex 380161 RAVASl LCCI 


Cognome 

Nome_ 

Indirizzo 

CAP Città 

Sono interessato a: 


□ 

□ 

□ 


_ Prov._ 

DH 101 Robot 
DH 620 starting kit 
Biometal guide book 


Il mio personal computer è 










